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Lernen mit dem 


Computer 

Die Lernsoftware ist 
aus dem Stadium der 
Vokabellernprogramme 
hinausgewachsen. Le- 
sen Sie, was Sie noch 
alles mit dem Computer 
lernen können. Zum 
Beispiel in Computer- 
Kursen. Eine ausführli- 
che Marktübersicht 
zeigt Ihnen, welche 
Programme angeboten 
werden, was sie leisten 
und was sie kosten. 
Seite 166 


Drei Drucker im Test 


Der RFIDP 165 ist ein 
Drucker, der bislang 
ein Schattendasein 
führte. Zu Unrecht wie 
unser Test ergab. Denn 
der DP 165 besitzt sehr 
gute Eigenschaften. Ei- 
ne neue Konkurrenz für 
die Drucker-Stars. Au- 
Berdem nehmen wir für 
Sie Melchers CP-80 und 
den Epson GX-80 unter 
die Lupe. Beide lassen 
sich problemlos am 

C 64 anschließen. 
Seite 24 


128er-Magazin 


Sie finden eine Bauan- 
leitung zum Anschluß 
eines Monitors für den 
40-180-Zeichen-Modus. 
Wir zeigen, was das 
Basic 7.0 kann. 

Seite 16 
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Listings zum Abtippen 





Eintipphilfe 54 
ne _ Seite 52 64. Schreiberling — 
Fit in Latein | Drucken wie gemalt 54 
»Cursus Latinus« ist Anwendung des Monats 
unsere Hilfe für alle ge Fit in Latein mit dem C 64 57 
plagten »Lateiner«. Mit ee Listing des Monats 
»Cursus Latinus« wird Hypra-Text 67 
das lästige Pauken von ee een, Spiel: Pac-Man 
Vokabeln und Deklina- unter der Lupe 76 
tionen fast zum Ver- Tips und Tricks 
gnügen. Eine klare Be- Cross-Ref optimiert 83 
nutzerführung macht Programm-Generator für 
den Umgang mit dem den C 64 86 
Programm zum Kinder- Neues vom SMON 87 
spiel. Für uns stand 
schon nach kurzer Test- 64’er extra 
eg ee Die unentbehrliche Hilfe 
Seite 52 für Programmierer 
Alle VIC-Register 
auf einen Blick 93 
Seite 238 Kurse 
Massenspeicher | Dem Klang auf der Spur 
Zur Konservierung von | dei 126 
Daten sind Massenspei- C 64 extern — Der Weg 
cher ein unabdingbares nach draußen (Teil 3) 129 
»Muß«. Wir stellen Memory Map mit Wander- 
Ihnen die wichtigsten vorschlägen (Teil 11) 133 
Systeme vor. Darunter Assembler ist keine 
Kassettensysteme. Was Alchimie (Teil 19) 143 
bringen Disketten- Directory-Manipulationen II 163 
laufwerke mit 1 MByte 
Speicherplatz und Softwar e-Test 
Floppy-Speeder? Au- Comal 80 — die universelle 
Berdem geben wir Ih- Programmiersprache 151 
nen Einstellhinweise Aufgeräumt mit Mainfile II 157 
für die 1541-Floppy und 
die Datasette. - 
Seite 28 Spiele 
Trends 158 
Preisbrecher 158 
Spiele-Test 
Elite 158 
Rescue on Fractulus 
Einer der besten Boulder Dash II 159 
Eprommer Nick Faldo Plays the Open 159 
Der Rolls-Royce unter Thing on a Spring 159 


den Eprommern: bedie- 
nungsfreundlich und 
komfortabel. Beides At- 
tribute, die der Quick- 
byte Il zu Recht ver- 


Lernen mit Computer 


Erfolg mit dem C 64 
Besser Lernen 





. i 2 mit dem Computer 166 
dient. Selbst ein Anfän- Roboter selbst gebaut 167 
ger wird mit diesem Marktübersicht 
Eprommer schnell zu- ensorare 168 
rechtkommen. Auch wir 
waren überrascht, wie : 
einfach das Program- Rubriken 
mieren von EPROMs Editorial 8 
sein kann. Leserforum 12 
Seite 14 Leserservice 161 
Fehlerteufelchen 178 
Impressum 179 
Vorschau 180 
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Noch’n Service: 
Platinen 


Nach dem Listing-Service, 
den viele Leser gern nutzen, 
um sıch Tipparbeit zu spa- 
ren, bieten wir Jetzt auch ei- 
nen Platinenservice — für al- 
le diejenigen, die sich eine 
Erweiterung oder Zusatz- 
schaltung selbst bauen wol- 
len. Die Auswertung des in 
Ausgabe 6 ausgeschriebe- 
nen Wettbewerbs hatte näm- 
lıch gezeigt, daß sıch etwa 
die Hälfte aller Leser für 
Selbstbau interessieren — 
und daß ein Drittel sogar 
meint, das Thema seı im 
64’er unterrepräsentiert. 
Wenn wiır Bauanleitungen 
veröffentlichen, bieten wir 
künftig — erstmals ab die- 
sem Heft — die Möglichkeit, 
entweder die fertige leere 
Platine oder einen komplet- 
ten Bausatz und/oder die fer- 
tig montierte Einheit zu be- 
ziehen. Aufbauten auf Stan- 
dard-Lochrasterplatinen er- 
geben ja nicht immer befrie- 
digende und selten elegante 
Lösungen; das Selbst-Ätzen 
von Platinen macht selbst 
routinierten Hobbyelektroni- 
kern häufig Ärger (und erfor- 
dert außerdem eine speziel- 
le Ausrüstung). Mit der Op- 
tion, auch eine fertige Ein- 
heit beziehen zu können, 
wollen wir denen helfen, die 
bisher mangels Lötkolben, 
Ubung oder Zeit über die 
Selbstbauanleitungen hin- 
wegblättern mußten. Wir 
wollen es unseren Lesern so 
leicht als möglich machen, 
die 64’er-Informationen 
schnell und einfach prak- 
tisch zu nutzen. 


Michael Pauly, 
Redaktions-Direktor 


8 ayap 





Btx total 


Auf der diesjährigen Internationalen 
Funkausstellung in Berlin wurde Bix 
räsentiert wie noch nie. Nahezu jeder 
ande deutsche TV-Hersteller 
zeigte seine spezielle Anwendung. Am 
interessantesten dürfte allerdings das 
neue Btx-Decoder-Modul von Commo- 


dore gewesen sein. 


ie Teilnehmerzahlen bei 

Btx liegen weit hinter den 
Erwartungen zurück. Eine 
große Marktakzeptanz gera- 
de bei den Privatanwendern 
ist noch nicht gegeben. Das 
lıegt unter anderem an den 
relativ hohen Anschaffungs- 
kosten für ein komplettes Btx- 
System (Anschlußbox, Deco- 
der, Fernseher und Eingabe- 
tastatur). Bereits vorhande- 
ne, ältere TV-Geräte können 
nicht oder nur unter großem 
Aufwand für Btx aufbereitet 
werden. Das soll sich mit 


werden; die Tastatur bietet 
alle für den Dialog erforder- 
lichen Zeichen; der Compu- 
ter ist weiterhin als solcher 
einsetzbar. 

Die Vorteile des Compu- 
tereinsatzes hat auch Nord- 
mende erkannt. Durch ein 
kleines Modul kann eben- 
falls der © 64 für Btx tauglich 
gemacht werden, allerdings 
ist dazu noch eın Beistellde- 
coder notwendig. 

Eine neuartige AÄnwen- 
dung zeigte auch Grundig 
auf der IFA. Mit einem klei- 


dem Btx-Decoder Mit AT-METThterface lassen sich al- 


den C 64 und C 128 von Com- 
modore ändern. 

Bestückt ist dieses Modul 
mit dem Valvo-Chip »Eurom« 
und einen PAL-Coder. Damit 
kann jeder handelsübliche 
Farbfernseher mit normalen 
Video-Eingang eingesetzt 
werden. Bisher brauchten 
Btx-Teilnehmer einen SCART- 
Eingang für die Beistelldeco- 
der. Selbst ältere Fernseher, 
die keine Video-Buchse ha- 
ben, lassen sich anschlie- 
ßen. Benötigt wird dazu nur 
einalsZubehör angebotener 
UHF-Modulator. Ebenso kön- 
nen die Monitore 1701/1701 
und 1901 angeschlossen wer- 
den, es ist also nicht unbe- 
dingt ein Fernseher notwen- 
dig. Das Steckdecoder-Mo- 
Aul (für den Expansion-Port) 
wird zwischen 600 und 700 
Mark kosten und voraus- 
sichtlich Ende Dezember er- 
hältlich sein. 

Die Vorteile durch den Ein- 
satz des Moduls mit dem C 
64/C 128 liegen klar auf der 
Hand: Btx-Seiten lassen sich 
abspeichern (spart Telefon- 
gebühren); es ist kein spe- 
zıeller Fernseher notwendig 
(man muß nicht umsteigen); 
Telesoftware kann geladen 


le Grundig-Video-Recorder 
(sowohl System Video 2000 
als auch VHS) mit IIC-Bus 
durch den C 64 steuern. 
Denkbare Einsatzgebiete 
sind Video-Vorführungen mit 
gezielter Abrufmöglichkeit, 
UÜberwachungswesen oder 
programmierter Unterricht. 

Demonstriert wurde auf 
der Funkausstellung die 
Meteosat-Bildaufzeichnung. 
Durch die gute Deckung der 
Bildausschnitte des Wetter- 
satelliten ist es möglich, glei- 
che Bilder verschiedener 
Aufnahmezeiten zu einer 
Zeitrafferfolge über mehre- 
re Tage hinweg computerge- 
steuert zusammenzusetzen. 
Die Signale werden in ste- 
hendes Fernsehbild umge- 
wandelt und über die Com- 
putersteuerung mit einem 
Video-Recorder aufgezeich- 
net. Als Resultat erhält man 
eine fortlaufende Bilderfol- 
ge, mit der eine Vorschau auf 
die Wetterentwicklung mög- 
lich ist. 

Voraussetzung ist aller- 
dings eine Parabol-Antenne 
auf dem Dach! Dennoch 
zeigt diese Anwendung, was 
noch alles im C 64 steckt, 
man muß nur darauf kom- 


men. Das Interface soll übrı- 
gens um die 100 Mark ko- 
sten. 


Telesoftware 


Auf dem Poststand wurde 
die Anwendung der Tele- 
software demonstriert. Ver- 
wendung fanden dabeı die 
Programme aus unserem 
Wettbewerb in Ausgabe 
6/85. Der Sieger, Hans Lie- 
bler, erhielt aus der Hand 
des Bundespostministers Dr. 
Christian Schwarz-Schilling 
den 1. Preis, einen Btx-Fern- 
seher Loewe MCP 114. Tele- 
software bedeutet, daß Pro- 
gramme, die im Btx-Rechner 
gespeichert sind, von Jedem 
Teilnehmer mit dem entspre- 
chenden Computer (in die- 
semFallder C 64) abgerufen 
und verarbeitet werden kön- 
nen. Gesucht wird aller- 
dings noch nach einer ein- 
heitlichen Telesoftware- 
norm, die es erlaubt, art- 
fremde Daten (wie sie Pro- 
gramme nun einmal für Btx 
sind) über Bildschirmtext zu 
übertragen. Sollte dies in ei- 
nem vertretbaren Zeitraum 
gelingen, dürfte Telesoftwa- 
re in Btx ein zukunftsorien- 
tiertes Angebot werden. 

Dazu müßte allerdings 
auch aufder Hardware-Seite 
(sprich Decoder) für den 
Computer ein gewisser Stan- 
dard eingeführt werden. So 
gibt es mittlerweile neben 
Commodore noch minde- 
stens zwei Anbieter von 
Steckdecodern für den C 64. 
Das Modul »Btx 64« von 
Astech Computer haben wir 
bereits in der Ausgabe 8/85, 
Seite 15, vorgestellt. Dieses 
Modul verwandelt den C 64 
in eine Btx-Tastatur mit allen 
Computerattributen. Es ko- 
stet 248 Mark, benötigt aller- 
dings noch einen Decoder. 
Wie das Decodermodul von 
Commodore kommt auch 
das SD-64 (698 Mark) von 
Technofor ohne Decoder 
aus, das heißt nahezu jeder 
»normale« Fernseher oder 
RGB-Monitor kann ange- 
schlossen werden. 

Mit einer speziellen Soft- 
ware (90 Mark)kannderC 64 
auch als Mailbox, zum Laden 
von Telesoftware oder als 
elektronische Schreibma- 
schine mit Textverarbeitung 
eingesetzt werden. Beiden 
Decodern fehlt allerdings 
noch die Postgenehmigung. 

(aa) 
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Einen Schritt weiter — Grafiken der dritten Dimension 


Extended Graphics Pack 
heißt die Erweiterung, mit 
der Vızastar 64, das iInte- 
grierte Softwarepaket für 
denC 64, erst richtig zur Gel- 
tung kommt. Zusätzlich zu 
der ın Vızastar 64 schon vor- 
handenen Linien- und Bal- 
kengrafik, fügt dieses Gra- 
fikpaket die Räumlichkeit 
hinzu. Statt in flächigen Bal- 
kengrafiken werden die Da- 
ten des Arbeitsblattes drei- 
dimensional dargestellt. Je- 
des Säulendiagramm kann 
aus biszu vier Reihen vorein- 
ander und 33 Säulen neben- 
einander bestehen. Die drei- 
dimensionale Darstellung 
bleibt dabeiauchindenvier 
Reihen erhalten, denn jede 
Reihe wird versetzt vor der 
anderen abgebildet (Bild). 
Damit bei vielen Daten die 
einzelnen Säulen nicht zu 
klein werden, ist immer nur 
ein Quadrant der gesamten 
Grafik dargestellte. Wie 
schon vom Vizastar 64-Ar- 
beitsblatt bekannt, kann man 
mit den Cursortasten auch 
über die Grafik horizontal 
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Beispiel einer 3D-Grafik 


und vertikal wandern. Jede 
Reihe und Spalte, Kopf- und 
Fußzeile kann beliebig be- 
schriftet werden. Die zweite 
Darstellungsart dieser Er- 
weiterung ist die Kreisaus- 
schnittgrafik oder einfacher 
Tortengrafik, sie wird aller- 
dings nur zweidimensional 
abgebildet. Die Bedienung 
des Grafikpakets ist extrem 
einfach, denn die Werte für 
die Säulen oder Kreisaus- 
schnitte werden aus den Zel- 
len des Vizastar-Arbeits- 
blatts entnommen. Auf Ta- 
stendruck wird jede Grafik 
in einfacher oder doppelter 
Größe ausgedruckt. Ganz 
besonders erstaunlich ist dıe 
Arbeitsgeschwindigkeit die- 
ser Erweiterung. Ein Säulen- 
diagramm mit vıer Reihen 
und 33 Spalten ist bereits 
nach 3 Sekunden berechnet 
— das sınd Werte, wie man 
sie normalerweise nicht ein- 
mal von einem Personal 
Computer erwarten würde. 
(aw) 


Info: Interface Age, Josephsbursgstr. 6, 8000 
München 80, Preis 75 Mark 


00 0 80 Mia, area a ae 


2.0. 6-08 8102 rein Dreier be Sn. aTurhTe Eiern 


u 00900 Eau an e u Den nun Se Bene meine mem 


=.—_— --.. zum mo -- m... 
De ee Br re eG Er Ze Ze 
ET TE Tr rTr en e 
eo si2.8 ya 2 2 0 202 16 0 0.0180 0 (0. m e.0 are, ® 

u  —— 


Bien Er ie 
« ‚uw wie are ei 


Testen und dann 
erst kaufen! 


Die Firma Wiesemann bie- 
tet Ihren Kunden einen neu- 
artigen Service an: Mit dem 
Kauf der Interface-Typen 
92000, 92000G, 92008 und 
920085 erwerben Sie ein 
l4tägıges Rückgaberecht. 
Sollte Ihnen das Interface 
nicht gefallen, können Sıe es 
einfach an die Firma Wiese- 
mann zurückschicken. Sie 
müssen lediglich die Ver- 
sand- und Nachnahmeko- 
sten tragen. Sie bekommen 
dann, nach Aussagen der 
Firma, per Überweisung Ihr 
Geld umgehend zurück. Ab- 
züglich der Versandspesen. 
Die Rücknahmegarantie gibt 
nur die Firma Wiesemann 
selbst. Die Garantie er- 
streckt sich nicht auf Händ- 
ler. Es ıst also wichtig, daß 
man das Interface direkt bei 
Wiıesemann bestellt, wenn 
man diesen Service in An- 
spruch nehmen wnll. 

Info: Wiesemann Mikrocomputertechnik, 


Winchenbachstr. 3-5, 5600 Wuppertal, Tel. 
(0202) 505077 


Neues vom Turbo Access 


:VIZASTAR AT On.Die@"*#ma Roßmüller bie- 


tet seit kurzem zwei Pro- 
gramme für den 1541-Floppy- 
Beschleuniger Turbo Ac- 
cess an. Es handelt sich da- 
bei um ein menügesteuertes 
Kopierprogramm für einzel- 
ne Dateien und ein Disket- 
ten-Backup. Ein kurzer Test 
in der Redaktion brachte er- 
staunliche Werte. Beide Pro- 
gramme nutzen die Vorteile 
der parallelen Datenüber- 


tragung aus und kopieren 
einzelne Dateien oder ganze 
Disketten mit erstaunlicher 
Geschwindigkeit. Das File- 
Copy ist aufdıe Verwendung 
einer 1541 abgestimmt und 
erleichtert durch einige Son- 
derfunktionen die gesamte 
Arbeit mit dem Laufwerk. Es 
können DOS-Befehle gesen- 
det und das Directory ange- 
zeigt werden. In einem 
»Scratch-Modus« fragt das 
Programm nach, welche der 
Dateien auf einer Diskette 
gelöscht werden sollen. Das 
Disketten-Backup-Pro- 
gramm setzt das Vorhanden- 
sein von zwei Laufwerken 
voraus. Mit ihm lassen sich 
Kopien ganzer Disketten ın 
einer Zeit von 22 Sekunden 
herstellen. Die Zieldiskette 
soll dabei gleich mitforma- 
tiert werden. Nach Auskunft 
des Herstellers werden von 
dem Kopierprogramm alle 
Daten zwischen der Spur | 
und der Spur 35 kopiert. Die 
Umgehung verschiedener 
Arten des Kopierschutzes 
soll nicht die Absıcht des 
Programmierers gewesen 
sein. Beide Programme wer- 
den, nach Angabe der Firma 
Roßmüller, im Rahmen des 
Kundenservice an die Besit- 
zer von Turbo Access auf An- 
forderung versendet. Gleich- 
zeitig wurde eine Turbo-Ac- 
cess-Version für denC 128an- 
gekündigt. Besitzer des al- 
ten Turbo Access benötigen 
dafür lediglich eine Erweite- 
rungsplatine, deren Preis al- 
lerdings noch nicht fest- 
stand. (aw) 


Info: Roßmüller GmbH, Finkenweg 1, 5309 
Meckenheim ], Tel. (02225) 14488 





Kopien aus dem 
Automaten 


Einen neuen Verkaufsweg 
vonSoftware fürden C 64 will 
dıe Firma Astech Computer 
einschlagen: Wenn Sie ein C 
64-Programm kaufen wollen, 
holt Ihnen der Händler keine 
Diskette mehr aus dem La- 
ger. Sie müssen nur eine un- 
formatierte Diskette in einen 
Automaten schieben, genü- 
gend Geld einwerfen, das 
Programm auswählen und in 
kurzer Zeit haben Sie eine 
Kopie des Programms in 
Händen. Inklusive Anleitung 
und Kopierschutz. Das Soft- 


wareangebot umfaßt etwa 20 
Programme pro Automaten 
(Bild). 

Jeder Kopierautomat ist 
über Btx mit dem Astech- 
Zentralcomputer verbun- 
den. Dieser Computer fragt 
jeden Abend die Verkaufs- 
zahlen der einzelnen Auto- 
maten ab. Sollte sich heraus- 
stellen, daß ein Programm 
nicht den gewünschten Um- 
satz bringt, kann es inner- 
halb eines Tages gegen ein 
neues ausgetauscht werden. 
Ebenfalls über Btx. 

Der Vorteil gegenüber 
den bekannten Kopierauto- 
maten, die von einem 


EPROM Kopien auf Diskette 
herstellen, liegt in der Art 
der Händlerabrechnung. 
Ein Händler braucht nur für 
schon verkaufte Kopien zu 
bezahlen. Es besteht also 
nicht das Risiko, Ladenhüter 
einzukaufen. Außerdem 
kommt dem Händler der 
Zinsgewinn vom Verkaufser- 
lös zugute: Einmal pro Monat 
bekommt der Händler die 
Rechnung über die verkauf- 
ten Kopien. 

Der Preis des Astech- 
Copy-Corners liegt bei 8500 
Mark (netto). 


Info: Astech Computer, Am Wall 183, 2800 
Bremen 1, Tel. (0421) 324057 
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Leserforum 





Astrologieprogramme 
gesucht 


Ich suche Programme, bezie- 
hungsweise Algorithmen zur 
Astrologie, speziell auch zur Be- 
stimmung der Gestirnstände. 
Gerne bin ich auch zur Zusam- 
menarbeit mit Gleichgesinnten 
bereit. Elisabeth Cryns 


Software für 
EAN-Code-Leser gesucht 


Ich suche Software und 
Drucker, um mit meinem C 64 
den Strichcode EAN 13 auf Eti- 
ketten zu drucken. 

Wer hat bereits solche Softwa- 
re geschrieben (was ja nicht so 
schwierig sein kann), und wer 
hat bereits den C 64 in Verbin- 
dung mit EAN 13 benutzt? Bei 
dem Drucker sollte es sich um 
einen gängigen Matrix- oder 
Tintenstrahldrucker handeln, 
der auch zur Textverarbeitung 
genutzt werden kann. 

Ralf Kammermeier 


Druckbefehle 
bei Multiplan? 

Wie kann man innerhalb des 
Programms »Multiplan« für den 
C64Druckersteuerzeichen (zum 
Beispiel für EPSON-Drucker) 
eingeben, um so ein etwas an- 
deres Druckbild zu erhalten? 

Thomas Prym 


Undokumentierter 
Fehler? 


Bei der Programmierung von 
sequentiellen Dateien gibt mir 
der Computer manchmal einen 
»FILE DATA ERROR« aus, den 
ich aber in keinem Handbuch 
finde. Welche Ursache hat die- 
ser Fehler? Jens Richter 


Fragen Sie doch 


Selbst bei sorgfältiger Lek- 
türe von Handbüchern und 
Programmbeschreibungen 
bleiben beim Anwender im- 
mer wieder Fragen offen. 
Viel mehr Fragen ergeben 
sich bei Computer-Interes- 
senten, die noch keine fe- 
sten Kontakte zu Händlern, 
Herstellern oder Compu- 
terclubs haben. Sie können 
der Redaktion Ihre Fragen 
schreiben oder Probleme 
schildern (am einfachsten 
auf der Karte »Lesermei- 
nung«). Wir veranlassen, daß 
sie von einem Fachmann be- 
antwortet werden. Allge- 
mein interessierende Fra- 
gen und Äntworten werden 
veröffentlicht, die übrigen 
brieflich beantwortet. 








Modul-Probleme? 


Ich möchte mit dem Buch 
»Musik auf dem Commodore 
64« die Musikprogrammierung 
lernen. Um die Programme auf 
der beiliegenden Diskette lau- 
fen zu lassen benötigt man 
Simons-Basic, wovon ich das 
Modul besitze. Gleichzeitig 
möchte ich aber auch den JEN- 
Music-Computer »Musipack C 
64« verwenden. Nun stehe ich 
vor dem Problem, jedesmal das 
Simons-Basic-Modul entfernen 
zu müssen, damit ich das Inter- 
face vom Musipack dafür ein- 
stecken kann. Dies führt jedoch 
auf die Dauer zu einem zu gro- 
Ben Verschleiß der Module. 

Nun habe ich zufällig einen 
Adapter gesehen, mit dem man 
zwei Module an den C 64 an- 
schließen kann. Nur, zu dessem 
Preis bekomme ich auch schon 
einen gebrauchten C 64. Wer 
weiß Rat? 

Hermann Schneider 

Es kommt öfter vor, daß die 
Preise für Zusatzhardware in 
keinem vernünftigen Verhältnis 
zu dem des C 64 stehen. Dies 
liegtjedoch meistens daran, daß 
diese Produkte (wie in diesem 
Fall wahrscheinlich auch) nicht 
sehr gefragt sind. Daran können 
wir Jedoch leider auch nichts än- 
dern. Sie haben daher prinzi- 
piell zwei Möglichkeiten: Entwe- 


derSiebauensichd rder- 
lichen Adapter Seib ER 1e hu) 


— und dies ist in diesem Fall 
wohl die einfachere Lösung — 
besorgen sich die Diskettenver- 
sion von Simons Basic. Die muß 
man zwar vor jeder Benutzung 
laden, dafür kann aber das 
Musikpack-Interface im Modul- 
schacht bleiben. 


Probleme 
mit Reset-Taster 


Ich habe vor einiger Zeit Ihren 
Vorschlag aus Ausgabe 7/85 
»Einfacher Reset-Schalterselbst 
gebaut« aufgegriffen. Ich muß- 
te jedoch leider feststellen, daß 
dieser Schalter nicht funktions- 
tüchtig ist. Überarbeiten Sie bit- 
te Ihre Pläne, da ich vermute, 
daß Commodore die Reset-Lei- 
tung ab Baujahr ’85 nicht mehr 
belegt hat. Dirk Kruschewski 


Commodore hat offensichtlich 
bei der neuesten Serie des C 64 
eine kleine Anderung an seriel- 
len Bus vorgenommen. Eine Dio- 
de am Ausgang der Reset-Lei- 
tung wirkt wie eine elektroni- 
sche Einbahnstraße. Der Impuls 
zum Zurücksetzen der Floppy 
kann zwar hinaus, in umgekehr- 
ter Richtung — mittels eines klei- 
nen Tasters an der seriellen 
Buchse — funktioniert der Reset 
jedoch nicht mehr. 

Leider läßt sich nicht feststel- 
len, bei welchem C 64 der Reset 
funktioniert — eshilft nur probie- 
ren. 


DOS 5.1 mit 
Hypra-Load? 
Besteht die Möglichkeit, DOS 


5.1 zusammen mit »Hypra Load 
Perfekt« in ein EPROM zu bren- 


nen? Dieter Bast 


Pearl-Compiler 
für C 64? 


Gibt es für den C' 64 einen 
rl-Compiler? Des weiteren 
ic ich einen Emulator und 

Cross-Assembler für den 
6800-Prozessor. M. Volkmer 


Comal-Gruppe 
Deutschland 


Die Comal-Gruppe Deutsch- 
land hat es sich zur Aufgabe ge- 
macht, die Verbreitung der Pro- 
grammiersprache Comal nach 
Kräften zu unterstützen. Es steht 
eine große Sammlung an Pro- 
grammen sowohl für die Version 
0.14 als auch für das neue Comal 
80 zur Verfügung. Eine eigene 
Clubzeitschrift bringt Kurse, Pro- 
gramme und Tips & Tricks. Eine 
Comal-Mailbox ist unter der 
Nummer 04683/554 zu errei- 
chen. S. Bauer 
Comal Gruppe Deutschland, S. Bauer, 
Kaufgasse 4, 7204 Wurmlingen, Tel. 07461/ 


12543. Bei schriftlichen Anfragen bitte 
Rückumschlag beilegen. 


Textverarbeitung 
mit Formeln 


Ich besitze einen Seikosha 
GP-550-Drucker und suche ein 
Textverarbeitungsprogramm, 
mit dem ich mathematische 
Sonderzeichen ausdrucken 
kann. Wer hat ferner eine 
Hardcopy-Routine, die auch mit 
Simons Basic zusammenarbei- 
tet? Ausgabe 8/85 

Johann Bierschneider 





Grundlage für die Darstellung 
mathematischer Symbole ist die 
Möglichkeit, eigene Steuerzei- 
chen definieren zu können. Beim 
Seikosha GP-550 erreicht man 
das mit Hilfe des Grafikmodus. 
Durch geeignete Grafikdaten 
sollte es gelingen, das ge- 
wünschte Sonderzeichen zu 
drucken. Die genaue Vorge- 
hensweise entnimmt man dem 
Handbuch des Druckers, insbe- 
sondere den im Anhang aufge- 
führten Beispielen. 

Zusammenarbeit mit einem 
Textverarbeitungsprogrammer- 
folgt dannin der Regel über die 
Definition einer geeigneten Zah- 
lensequenz, die angeführt von 
der Grafik-Einschaltsequenz 
(siehe Handbuch Kapitel 7) die 
oben ermittelten Daten enthält. 

Beim Aufruf eines solchen 
Zahlenstrings schickt das Text- 
verarbeitungsprogramm dem 
Drucker die darin enthaltenen 
Steuer- und Symboldaten. 

Will man lediglich ein norma- 
les Zeichen hoch- oder tiefge- 
stellt ausdrucken, schaltet man 
über eine Datensequenz die im 
GP-550 eingebaute Sub/Super- 
scriptschrift ein (siehe Hand- 
buch). Frank Jörgens 


C 16: Bilder auf 
Datasette? 


Wer kann mir sagen, wie man 
beim C 16 fertige Bilder außer 
mit Shapes auf Datasette spei- 
chert? Hardeen Hornburg 


Das Abspeichern von Grafi- 
ken ist sehr einfach: 
Zuerst löscht man den Grafik- 
speicher mit»GRAPHIC ],1«. Hat 
man einen Teil der Grafik fertig 
und will sie abspeichern, geht 
man mit »GRAPHIC 0,l« in den 
Textmodus zurück und gibt den 
Befehl MONITOR ein. Nun kann 
man die Grafik mit »S” Grafikna- 
me”,1,2000,3FFF« abspeichern. 
Weiter geht es mit »S”Farbna- 
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me” .1,1C00,1FFF« um die Farbe 
abzuspeichern und zu guter 
Letzt müssen auch die Lumi- 
nanzwerte der Farben gesichert 
werden: »S”Luminanzname‘”,l, 
1800,1BFF«. Damit sind alle Kom- 
ponenten der Grafik abgespei- 
chert. 

Möchte man das Bild wieder 
laden, dann muß zunächst der 
Grafikspeicher wieder gelöscht 
werden mit »GRAPHIC 11 
GRAPHIC 0,« und anschlie- 
ßend geht man wieder in den 
Monitor. Jetzt lädt man die Files 
wieder in umgekehrter Reihen- 
folge mit »L”fillename”,l«in den 
Speicher. Hendrik Voss 


Preiswerte 
Umschaltplatine 


Die Umschaltplatine aus Aus- 
gabe 7/85,. Seite 4] (Aus eins 
mach vier«) können Sie absofort 
zum Preis von 18 Mark (nur Plati- 
ne) bei mir beziehen. 

Andreas Gerzen 


Andreas Gerzen, Marienstr. 14, 4018 Lan- 
genfeld 


Programme RENUMBERn? 


Können die Listings nicht vor 
dem Abdruck RENUMBERt wer- 
den? Dann könnte man eine au- 
tomatische Zeilennumerierung 
benutzen. Michael Dick 


Es ist technisch natürlich kein 
Problem, jedes BASIC-Pro- 
gramm vor dem Abdruck mit 
dem »RENUMBER«-Befehl ir- 
gendeiner Basic-Erweiterung in 
eine schönere Form zu bringen. 
Dann müßten aber auch die Zei- 
lenangaben in den Programm- 
beschreibungen entsprechend 
abgeändert werden. Dies wäre 
jedoch eine neue, unnötige Feh- 
lerquelle Da die Zeilennum- 
mern auch ein Mittel zur über- 
sıchtlichen Programmierung 
sein können, setzen sie manche 
Programmierer zur Kennzeich- 
nung von Unterprogrammen ein 
(zum Beispiel Unterprogramm | 
ab Zeile 1000, Unterprogramm 2 
ab 2000 und so weiter). 

Die Idee ist sehr gut, wir müs- 
sen diese Anregung jedoch an 
unsere Programmeinsender, mit 
der Bitte sie zu beherzigen, wei- 
tergeben. 


Floppy-Laufwerk 
reinigen? 

Welche Möglichkeiten habe 
ich, meine Floppy 1541 zu reini- 
gen, um Lese- und Schreibfeh- 
lern vorzubeugen, und wie be- 
komme ich das Laufwerk 30 Se- 
kunden lang zum Laufen, wenn 
ich eine Reinigungsdiskette be- 
nutzen will? Jack Reis 
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Sie können das Laufwerk für 
30 Sekunden in Bewegung hal- 
ten, wenn Sie es einfach fünfmal 
hintereinander initialisieren: 
OPEN: 18.15:2 FOR 1=1-7T0 8: 
PRINT #1, ”1” : NEXT: CLOSE 1 

Von der übermäßigen Benut- 
zung von Reinigungsdisketten 
möchten wir aber unbedingt ab- 
raten, da diese den Schreib-/ 
Lesekopf mit der Zeit so ver- 
schleißen, daß er unbrauchbar 
wird. Greifen Sie daher bitte nur 
dann zur Reinigungsdiskette, 
wenn sehr häufig Lese- oder 
Schreibfehler auftreten und Sie 
sicher sind, daß dies am ver- 
schmutzten Schreib-Lesekopf 
liegt. Benutzen Sie Reinigungs- 
disketten unter keinen Umstän- 
den vorbeugend, wenn Ihnen et- 
was an Ihrer 1541 liegt. 


Midi-Interface für C 64 


Wo bekommt man ein Midi- 
Interface zum Anschluß des C 
64 an den Synthesizer Korg Poly 
61M? Mathias Heck 

Ausgabe 8/85 


Das derzeit wohl preiswerte- 
ste Midi-Interface für den C 64 
wird von der Firma Musik-Elek- 
tronik Butterweck, Hochstraße 
75, 4630 Bochum 6, zum Preis von 
96 Mark vertrieben. Ich benutze 
dieses Interface selbst und kann 
sagen, daß esmit praktisch allen 
Midi-Programmen einwandfrei 
zusammenarbeitet. Für 
Korg Poly 61 wird keine spezielle 
Software angeboten, man kann 
aber alle Sequenzer-Program- 
me einsetzen. Noch ein Tip: Die 
Zeitschrift »Keyboards« bringt in 
fast jeder Ausgabe Midi-Soft- 
ware. Reinhard Hellbach 


Veröffentlichung 
auch ohne Drucker? 


Ich würde Ihnen gerne ein 
Programm zur Veröffentlichung 
einsenden, habe aber keinen 
Drucker um es auszudrucken. 

Holger Kuhfuß 


Wir freuen uns natürlich über 
jede Programmeinsendung, be- 
sonders wenn sie gut und Ideen- 
reich ist. Die Entscheidung, ob 
wir Ihr Programm abdrucken, 
hängt nicht vom Vorhandensein 
eines Listingausdrucks ab! Aus- 
schlaggebend ist einzig und al- 
lein die Qualität des Programms 
und der Beschreibung. Natür- 
lich erleichtert uns ein Listing 
die Arbeit mit und an Ihrem Pro- 
gramm. Wichtig ist jedoch, daß 
Sie einer solchen Einsendungei- 
nen Datenträger mit dem Pro- 
gramm beilegen. 

Ein wichtiger Faktor bei der 
Beurteilung der Zusendungen 
ist die Güte der Anleitung, denn 
das beste Programm ist ohne ei- 
ne gute Anleitung nichts wert. 
Diese sollte möglichst anschau- 
lich sein und Ihr Programm aus- 
führlich erläutern. 





Einsteiger-Literatur 
zum C 64 gesucht 


Ich habe seit kurzem einen C 
64 und möchte damit möglichst 
schnell programmieren lernen. 
Welche Bücher würden Sie mir 
dazu empfehlen? 

Annegret Stör 


Das Angebot an Literatur zum 
C 64 ist sehr groß und speziell 
für den Computer-Neuling prak- 

| Wurchschaubar. Hier ist 
eine Auswahl empfehlenswerter 
Lehrbücher für den Einsteiger: 

Einen kompletten, ausführli- 
chen Grundlehrgang in Basic 
gibt das Buch »Basic-Grundkurs 
mit dem C 64«, Markt & Technik 
Verlag, Haar bei München, 376 
Seiten, 44 Mark. 

Eine für den absoluten Neu- 
ling empfehlenswerte Einfüh- 
rung in den Umgang mit dem C 
64 ist »64 für Einsteiger«, Verlag 
Data Becker, Düsseldorf, 214 
Seiten, 29 Mark. 

Ebenfalls an den Einsteiger 
wendet sich »Commodore 64 
leichtgemacht« Sybex Verlag 
Düsseldorf, 176 Seiten, 28 Mark. 

Einen nach Basıc-Befehlen ge- 
ordneten, leichtverständlichen 
Überblick über das Commodo- 
re-Basic mit vielen Beispielen 
bieten gleich zwei Bücher: 

Das »Commodore 64 Basic- 
Handbuch«, Sybex Verlag, Düs- 
seldorf, 204 Seiten, 32 Mark, und 
»Basiswissen © 64«, Westermann 
Verlag, Braunschweig, 212 Sei- 
ten, 29,80 Mark. 

Das Buch »Der Commodore 64 
für Hobby, Schule und Beruf«, 
Carl Hanser Verlag, München, 
338 Seiten, 48 Mark, bietet eine 
praxisorientierte, aber leicht- 
verständliche Einführung in die 
Programmierung. 

Anhand von Beispielen lernt 
man beim Buch »Programmie- 
ren — keine Ahnung%, Birkhäu- 
ser Verlag, CH-Basel, 126 Seiten, 
29,80 Mark. 





Ghostbusters-Problem 
gelöst 


Die Original-Kassette von 
»Ghostbusters« läuft auf mei- 
nem C 64 nicht. Woran kann das 


liegen? 
Stefan Bardos 


Mit ziemlicher Wahrschein- 
lichkeit ist der Tonkopf Ihrer Da- 
tasette verstellt. Diesistnichtnur 
allgemein die häufigste Fehler- 
ursache bei der Datasette, son- 
dern es reagieren auch alle 
Activision-Programme, wohl 
durch den verwendeten Kopier- 
schutz, sehr empfindlich darauf. 

Nehmen Sie also einen klei- 
nen Schraubenzieher mit unge- 
fähr 2 mm Klingenbreite. Entfer- 
nen Sie die Kassette aus Ihrer 
Datasette und drücken Sie die 
»Play«Taste. Positionieren Sie 
den Schraubenzieher in dem 
kleinem Loch über der »Re- 
wind«Taste, in dem sich eine 
Schraube zur Tonkopfjustierung 
befindet. Drehen Sie den 
Schraubenzieher um etwa eine 
Viertelumdrehung in eine belie- 
bige Richtung, die Sie sich aber 
merken müssen. Probieren Sie 
jetzt, das Programm zu laden. 
Wird der Ladevorgang jetzt frü- 
her als normalerweise abgebro- 
chen oder erscheint gar ein»Out 
of Memory Error«, dann haben 
Sie in die falsche Richtung ge- 
dreht. Also nochmals den 
Schraubenzieher ansetzen, die 
Vierteldrehung rückgängig ma- 
chen (die Richtung wissen Sie 
doch noch?) und jetzt eine viertel 
Drehung in der anderen Rich- 
tung ausprobieren. Eventuell 
müssen Sie mehrmals eine vier- 
tel Drehung dazugeben, bis es 
funktioniert. Mit dieser einfa- 
chen, wenn auch etwas zeitauf- 
wendigen Methode bekommen 
Sie die richtige Einstellung Ihrer 
Datasette in fast allen Fällen her- 
aus. 

Thomas Staudt 
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Quickhyte II 
— das 
Kraftpaket 


Der Quickbyte Il läutet 
eine neue Epoche der 
EPROM-Programmierung 
ein. Selbst Neulinge auf 
diesem Gebiet können, 
dank der hervorragenden 
Bedienungsfreundlich- 
keit, schon bald ihre ei- 
enen EPROM-Module 
erstellen. 


ergleicht man die Fähigkeiten 
heutiger EPROM-Program- 
miergeräte mit denen der er- 
sten Generation, so mutet das wie 
ein Vergleich zwischen einem Dop- 
peldecker und einer Concorde an. 
Bei den ersten Geräten war esnoch 
Usus, alle notwendigen Program- 
mierspannungen und EPROM-Ty- 
pen (es waren meistens nur zwei 
oder drei) mit Schaltern und Hebel- 
chen einzustellen. En EPROM-Bren- 
ner gehört heute aber schon fast zur 
Grundausstattung vieler Computer- 
Besitzer. 

Das einzige, was beim Quickbyte 
II (siehe Bild) noch an die Pionierta- 
ge der EPROM-Programmierung 
erinnert, ist der offene Blick auf die 
sauber aufgebaute Platine (nach 
Aussage des Herstellers soll ein Ge- 
häuse in Zukunft mitgeliefert wer- 
den). Älle anderen Funktionen der 
Hardware muten sehr professionell 
an. Der Aufwand, der zur Gewin- 
nung der Programmıerspannung 
getrieben wurde, isthoch, denn der 
Quickbyte II wird am Expansion- 
Port (durchgeschleift) des C 64 an- 
geschlossen. Mit dem Anschluß am 
Expansıon-Port ıst natürlich der Vor- 
teil verbunden, die Treibersoftware 
ebenfalls auf dem EPROM-Brenner, 
ın Form eines Autostart-EPROMs, 
unterbringen zu können. Gleich 
nach dem Einstecken des Quickby- 
te II meldet sich diese Software mit 
einem Menü, das schon beim ersten 
Durchlesen der Unterpunkte einen 
Vorgeschmack auf die Leistungsfä- 
higkeit dieses Gerätes gibt. Kaum 
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Bild. Der Quickbyte II — EPROMs programmieren wird zur Selbstverständlichkeit 


hat man die Punkte des Hauptme- 
nüs durchgelesen, schaltet Quick- 
byte IIselbständig in ein zweites Me- 
nü um und fordert zur Wahl eines 
bestimmten EPROM-Typs auf. Zu 
seinem ertol Shären die in 
der Rn e Eng ellten Typen. 
Besonders bemerkenswert ist, daß 
auch elektrisch löschbare EPROMs 
und die von Commodore verwende- 
ten Firmware-ROMs (im Computer/ 
Floppy/Drucker eingebaut) zu den 
lesbaren, Typen gehören. Kaum eın 
EPROM-Brenner, der ohne einge- 


— Fast Load eingebaut (von Diskette) 

— Textool-Sockel 

— Lesen, schreiben, vergleichen, 
Leertest 

— Menüführung in allen Punkten 

— Auslesen von Steckmodulen 

— Programmierung einzelner Bytes 

— Diskettenoperationen 

— Module bis 128 KByte erstellen 

— intelligenter, schneller Algorithmus 

Monitor mit vielen Funktionen 

R Registeranzeige 

G Sprung zu Adresse 

M Speicherinhalte ansehen 

L Laden von Programmen 

S Speichern von Programmen 

Rechenoperationen (+8, #) 

F Füllen von Speicherbereichen 

T Speicherbereiche verschieben 

H Suchfunktion 

D Disassemblieren 

ES,EC Spritesdeänition 

EPROM-Typen: 

21916/27513/27512/27256/57256/27128 

/27128/A/2764/27C64/87C64/2732/ 

2132A/2716/2564/2532/2516/2508/ 

5133/5143/XL2816A/XL2864A / 

X148C64/2332/2364 


Tabelle. Die Leistungen des Quickbyte II 
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bauten Monitor ausgeliefert wird. 
Beim Quickbyte II hat dieser Monı- 
tor aber professionelle Qualitäten 
(Tabelle). Ebenso der Modul-Mo- 
dus, der es erlaubt, biszu 128 KByte 
lange EPROM-Auto-Start-Program- 
me herzustellen. Auch der in mehr- 
facher Hinsicht intelligente Pro- 
grammiermodus, der mitdenimmer 
noch recht teuren EPROMs sehr 
schonend umgeht, hebt den Quick- 
byte II aus dem weiten Feld der Kon- 
kurrenten heraus. Der Quickbyte II 
unterscheidet zwischen drei Pro- 
grammierzeiten, die er sich, je nach 
Qualität des eingesetzten EPROMs, 
selbst sucht. Alle leeren Bytes (FF) 
werden nicht mitprogrammıert, son- 
dern übersprungen (Urzustand ei- 
nes EPROMSs). Da sofort nach dem 
Schreiben ein Verivy durchgeführt 
wird, werden fehlerhafte Bytes un- 
mittelbar erkannt. Der Quickbyte II 
erhöht dann selbständig die Pro- 
grammıerzeit etwas und brennt das 
betreffende Byte nochmals. Da- 
durch wırd ein optimaler Kompro- 
miß zwischen Schonung des 
EPROMs, Geschwindigkeit und Da- 
tensicherheit erreicht. 

Mit seiner üppigen Funktionsaus- 
stattung und dem gelungenen Harcd- 
ware- und Software-Konzept ist der 
Quickbyte II sicherlich einer der 
besten EPROM-Brenner für den © 
64. Der Preis von 298 Mark ist für 
dieses Kraftpaket gerechtfertigt, 
auch wenn es wünschenswert wäre, 
Ihn preiswerter zu erhalten. (aw) 


Info: Jann Datentechnik, Glimmerweg 22, 1000 Berlin 47, 298 
Mark 
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Ein Monitor 
ist genug 


Der C 128 benötigt 
eigentlich zwei Monitore: 
einen mit RGB- und 
einen mit Composite-Ein- 
ang. Mit dieser Bauan- 

eitung für eine automa- 
tische Signalumschaltung 
reicht allerdings ein 
Monitor aus, wenn Sie 
im 80-Zeichen-Modus 
auf Farbe verzichten 
können. 








aum hatten wır die ersten C 128 
in der Redaktion stehen, ärger- 
ten wir uns über das lästige 
Umstecken des SW-Monitors. Com- 
posite-Ausgang im 40-Zeichenmo- 
dus, RGB im 80-Zeichenmodus. »So 
nicht!« dachten wir und überlegten 
uns eine Schaltung, die Ihnen und 
uns in Zukunft die ewige Stöpselei 
erspart. 

Schaut man sich die Belegung der 
beiden Video-Ausgänge des C 128 
genauer an, fällt auf, daß beide 
Buchsen einen Luminanz(Hellig- 
keits)-Ausgang haben. Beim RGB- 
Ausgang wird das Luminanz(Hellig- 
keits)-Signal im Handbuch nur als 
Monochromsignal bezeichnet. 

Mit einem Luminanzsignal kann 
jeder gebräuchliche SW-Monitor 
angesteuert werden. Auch der 
1701/1702-Monitor von Commodore 
hateinen Luminanzeingang. Beiden 
letzteren kann auch der FBAS-Ein- 
gangander Frontseite mit einem Lu- 
minanzsignal beschaltet werden. 
Man muß dann nur den Farbregler 
auf Schwarz-weiß drehen. 

Die einfachste Methode, ein und 
denselben Monitor sowohl an den 
ROB- als auch an den Composite- 
Ausgang anzuschließen, ist die Ver- 
wendung eines Adaptersteckers. 
Dazu wird an den RGB-Ausgang ein 
kurzes Zwischenkabel mit RGB- 
Stecker und Composite-Buchse an- 
geschlossen. Bei der 80-Zeichen- 
darstellung muß der Monitor an das 
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Streifen verwendet. 


Zwischenkabel angeschlossen wer- 
den, bei 40-Zeichendarstellung und 
C 64-Modus an den Composite-Aus- 
gang AKEYZEN-INEE 

Das bringt allerdings einige Pro- 
bleme mit sich. Erstens wird das 
Umstecken schnell lästig und zwei- 
tens ist der Kontaktverschleiß an 
den Steckern und Buchsen sehr 
hoch. Es muß also eine automati- 
sche, verschleißfreie Umschaltung 
her. 

Automatische Umschaltung, aber 
wie? Über dieses Problem haben 
wir uns Gedanken gemacht. Wir 
wollten Ihnen eine optimale Lösung 
anbieten, die einfach nachgebaut 
werden kann. Nach einigen Ideen 
wie User-Port-Schaltungen oder 
Logik-Bausteinen an der MMU und 
den beiden Videoteilen kamen uns 
der richtige Einfall: die 40/80-Taste. 
Diese Taste, die direkt auf den Be- 
triebsmodus Einfluß nimmt, müßte 
doch für die Umschaltung verwend- 
bar sein. Tatsächlich wirkt diese Ta- 
ste, ein IxEIN-Schalter (kein Taster), 
aufden Pin 48der MMU. Dies ist der 
Eingang, über den die MMU den 40- 
oder 80-Zeichen-Modus nach dem 
Einschalten oder nach einem Reset 
initialisiert. Im Grundzustand hat 
dieser Eingang logischen Hidh- 
Pegel. Ä 

Ist der 40/80-Zeichen-Eingang 
der MMU unbeschaltet, wird beim 
Initialisieren der 40-Zeichen-Modus 
aktiviert, andernfalls der 80-Zei- 


Bild 2. Die elektronische Normumschaltung. Zum Aufbau wurde eine Lochrasterplatine mit 
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chen-Modus. Die 40/80-Taste schal- 
tet den MMU-Eingang auf Masse, 
wenn der 80-Zeichen-Modus aktı- 
viert werden soll. Man braucht also 
nur die Leitung vom Schalter zur 
MMU anzapfen, und schon ıst man 
anhand des Logikpegels über den 
Darstellungsmodus nach dem Ein- 
schalten oder einem Reset infor- 
miert. OV bedeutet 80-Zeichen-Mo- 
dus, +5V zeigt dıe 40-Zeichendar- 
stellung an. Da die Anschlüsse des 
40/80-Schalters aus der Grundplat- 
te herausragen, Ist das »Anzapfen« 
ein leichtes: Das Schaltkabel für die 
Umschaltelektronik muß nuran den 
Pin des 40/80-Zeichenschalters an- 
gelötet werden, der der C 128- 
Rückseite zugewandt ist. 


Automatische 
Umschaltung 


Die Umschaltung der Luminanz- 
signale vom RGB- und Composite- 
Ausgang erfolgt einfach über ein 
kleines Reed-Relaıs (IxUM)ın einem 
DIL-Gehäuse. Diese Relais brau- 
chen bei 5V Schaltspannung einen 
Schaltstrom von etwa 10 bis 20 mA. 
Zuviel für eine direkte Ansteuerung 
mıt dem MMU-Eingang. Der Pegel 
vom MMU-Eingang muß also ver- 
stärkt werden. Ein TTL-LS-Hex-In- 
verter ist billig und besitzt eine aus- 
reichende »Verstärkung«. Der Low- 
Power-Schottky-Typ sollte nicht 
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durch einen normalen TTL-Baustein 
ersetzt werden, da der mehr Versor- 
gungsstrom benötigt und einen klei- 
neren Eingangswiderstand besitzt. 

Die Umschaltplatine wird über 
Pin 2 des Kassetten-Ports mit +5V 
versorgt (siehe Handbuch). Es sind 
also nur zwei Drähte anzulöten. Ver- 
wenden Sie dazu am besten Schalt- 
litze, die knickfester als Draht ist. 
Der Lötkolben sollte eine Leistung 
von 16 Watt haben und gut vorge- 
heizt sein. Als Lötzinn eignet sich nur 
sogenanntes Elektroniklot. 

Die Schaltung umfaßt nur wenige 
Teile (Schaltplan, Bild ]). Der Aufbau 
sollte deshalb nicht zu schwer sein. 
Haben Sie die Schaltung fertig auf- 
gebaut (Bild 2), sollten Sıe diese vor 
dem Anschluß an den Computer mit 
einer 4,5 Volt Batterie überprüfen. 
Schließen Sie dazu Masse an den 
Minuspol der Batterie und +5V an 
den Pluspol der Batterie an. Wenn 
Sie nun die Steuerleitung an den Mi- 
nuspol der Batterie legen, sollten Sie 
ein leises Klicken des DIL-Relais hö- 
ren. Haben Sıe nur einen Ersatztyp 
des angegebenen Relais bekom- 
men, lassen Sie sich unbedingt die 
Anschlußbelegung davon zeigen. 
Der Diodentyp ist unkritisch. Die 
Diode dient nur zum Abfangen der 
Induktionsspannung, die beim Ab- 
schalten des Relais auftritt. Die Po- 
lung der Induktionsspannungist der 
angelegten Spannung entgegenge- 
setzt. 

Ist die Schaltung soweit in Ord- 
nung, können Sie die Stecker an- 
schließen. Verwenden Sie dazu ein- 
adriges, abgeschirmtes Kabel. Die 
Abschirmung wird nur mitPin2 des 
Composite-Steckers verbunden 
und nicht mit dem Steckergehäuse. 
Entsprechend mit Pin 1 des RGB- 
Steckers. Die Steckerbelegungen 
im Schaltplan zeigen die Lötseiten. 
Hier die genaue Belegung der Vi- 
geobuchsen des C 128: 


RGB-Ausgang 

Pin Signal Pegel Impedanz 
1 Masse 0(V — 

2 Masse 0V — 

3 Rot 0/5V 75 Ohm 

4 Grün 0/5V 75 Ohm 

d Blau 0/5V 75 Ohm 

6 Intensität 0/5V 75 Ohm 

7 Luminanz 0-3Vs875 Ohm 

8 Horiz. Synch. 0/5V 75 Ohm 

9 Vert. Synch. 0/5V 75 Ohm 
Composite-Ausgang 

Pin Signal Pegel Impedanz 
l Lumin./Synch. IV,.,s 75 Ohm 

2 Masse 0oV — 

3 Audio-Ausg. WVes — 

4 Composite IVgss 75 Ohm 

5 Audio-Eing. _ 

6 Chrominanz 1V,.. 75 Ohm 
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Bild 1. Der Schaltplan. Bei den Steckern 
werden die lötseiten gezeigt. 





Für den Monitoranschluß ist eine 
Cinch-Buchse zum Aufbau vorgese- 
hen. Die Buchse wird einfach auf 
der Platine angelötet. Der Außen- 
kontakt wird mit Masse verbunden, 
der Innenleiter mit dem Sıgnal. 

Vor der Inbetriebnahme sollten 
Sıe noch einmal alle Anschlüsse ge- 
nau überprüfen. Ist alles in Ord- 
nung, schließen Sie das Steuerkabel 


und die zoung an 
den C ER BEE en Sie den 
SW-Monitor mit der Cinchbuchse 
und die beiden Videostecker mit 
dem C 128. Dann können Sie den 
Computer endlich einschalten. 
Wenn Sie alles richtig angeschlos- 
sen haben, erscheint die Einschalt- 
meldung auf dem Bildschirm. Ent- 
weder ım 40- oder 80-Zeichen-Mo- 
dus, je nachdem, wie die 40/80- 
Taste geschaltet ist. Erscheint im 
80-Zeichenmodus kein Bild, drehen 
Sıe das Trimmpoti und den Hellig- 
keitsregler des Monitors voll auf. 
Der Trimmer dient zur Abschwä- 
chung des Luminanzsignals vom 
RGB-Ausgang, da dieses Signal stär- 
ker als das des Chrominanz-Aus- 
gangs ist. Der Abgleich ist sehr ein- 
fach: 
1. C 128 einschalten 
2. Mit ESC X den 40-Zeichenmodus 
einschalten (40/80-Taste entrasten) 
3. Am Monitor Helligkeit und Kon- 
trast für 40-Zeichen-Modus einstel- 


len 

4. Mit ESC X 80-Zeichenmodus ein- 
schalten und 40/80-Taste drücken 
5. Mit dem Trimmpoti die Helligkeit 
auf den 40-Zeichenmodus anpas- 
sen. 

In der gleichen Weise können Sie 
dıe Helligkeit des 80-Zeichenmodus 
an die des C 64-Modus anpassen. 
Sie müssen nur immer die 40/80-Zei- 


a 


chentaste umschalten, wenn softwa- 
remäßig zwischen 80 und 40 Zei- 
chen pro Zeile umgeschaltet wird. 


Farbe ist auch möglich! 


Der Composite-Ausgang bietet 
neben dem Luminanz- und Chromi- 
nanzsignal noch ein komplettes 
Video-Signal an (FBAS, gemischtes 
Farb- und Helligkeitssignal). Mit die- 
sem Signal kann jeder Farbmonitor 
mit Videoeingang angesteuert wer- 
den. Beim Commodore-Monitor 
1701/1702 ist dieser Eingang an der 
Frontseite und kann mit einem 
Schalter an der Rückseite aktiviert 
werden. An diesen Eingang können 
Sie beim 1701/1702 übrigens auch 
das Luminanzsignal des RGB- 
Ausgang legen. Eventuelle Farbver- 
schiebungen lassen sich beseitigen, 
indem man den Farbregler einfach 
auf SW dreht. 

Um das FBAS-Signal auszunutzen, 
schließen Sie den automatischen 
Umschalter nicht an Pin 1 der 
Composite-Buchse an, sondern an 
Pin 4 (unterhalb Pin ]). Wenn Sie 
dann den Fronteingang (Einschal- 
ten!) des 1701/1702-Monitors mit der 
Cinchbuchse verbinden, erfolgt die 
40-Zeichendarstellung (C 128, C 64) 
in Farbe. Der 80-Zeichen-Modus 
bleibt Schwarz-weiß. Der Nachteil 
dieser Lösung liegt in der schlech- 
ten Auflösung des 1701/1702. 80 Zei- 
chen pro Zeile sind kaum noch zu 
entziffern. 

Für die meisten SW-Monitore ist 
das FBAS-Signal nicht geeignet. 
Häufig stören dann Bildstreifen die 
Lesbarkeit. 

Für welche der beiden Lösungen 
Sie sich auch entscheiden, bauen 
Sie auf jeden Fall die Schaltung in 
ein kleines Gehäuse ein. Nur so ist 
gesichert, daß kein Kurzschluß 
durch herumliegende Metallteile 
entsteht. (hm) 


1 741504 

l DIL-Reed-Relais 1xUM, Typ 1231 
(Fa. Günther) 

1 Trimmpoti 5 KOhm 

l Diode 4002 oä. 

2 IC-Fassungen l4polig 

1 Cinch-Platinen-Buchse 

l Kleingeräte-Stecker, 8polig, 270 Grad 

l Cannon-Stecker, 9polig mit Gehäuse 

l Stück Lochrasterplatine mit Kupfer- 
streifen, etwas Schaltdraht und Litze 

l m einadriges abgeschirmtes Kabel 

l Gehäuse 
Kosten: etwa 17 bis 20 Mark ohne Ge- 
häuse 


Stückliste 
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chwachstellen im System sind 
die Vorliebe vieler Program- 
mierer. Sie überlegen tagtäg- 
lich, wie man die Floppy schneller, 
das Druckbild schöner und das Ba- 
sic komfortabler machen kann. Ge- 
rade letzteres eröffnet dem C 64-Be- 
nutzer ein großes Betätigungsfeld. 
Mit dem C 128 und dessen Basic 7.0 
ändert sich das nun grundlegend. 
Viele Funktionen, die auf dem C 64 
mühselig in Maschinensprache rea- 
lisiert werden mußten, stehen beim 
C 128 als komfortable Basic-Befehle 
zur Verfügung. Harte Zeiten also für 
Maschinensprache-Freaks? Auf je- 
denFallaber rosige Zeiten für Basiıc- 
Programmierer. Auf den nächsten 
Seiten wollen wir Ihnen zeigen, wie 
einfach nun das Programmieren ge- 
worden ist. 


Strukturierte 
Programmierung 


Einige Befehle des 7.0-Basıc erlau- 
ben strukturierte Programmierung. 
So mancher Anwender wird sich 
nun fragen, welchen Nutzen man eı- 
gentlich davon hat. Nun, durch die 
Struktur wird ein Programm wesent- 
lich übersichtlicher, das heißt man 
kann die Arbeitsweise wesentlich 
leichter durchschauen und verste- 
hen, als die des normalerweise ver- 
wendeten »Spaghetticodes« bei 
dem alle Verzweigungen durch 
GOTO-Befehle realisiert werden. 

Nun aber zu den neuen Befehlen 
ım einzelnen. Die DO.LOOP-Schlei- 
fe, istin etwa mit den FOR..NEXT-Be- 
fehlen vergleichbar. Damit ist es un- 
ter anderem möglich, GOTO-freie 
Schleifen zu erzeugen. Der Pro- 
grammteil zwischen DO und LOOP 
wird endlos wiederholt. Damit sich 
der Computerjedoch nicht in dieser 
Schleife verfängt, können auch Be- 
dingungen angegeben werden, un- 
ter denen die Schleife ausgeführt 
wird. 

WHILE und UNTIL sind in ihrer 
Arbeitsweise sehr ähnlich. Sie kön- 
nen entweder dem DO-Kommando 
(also zum Beispiel DO WHILE) fol- 
gen, oder hinter dem Schleifen- 
rumpf stehen (LOOP UNTIL). WHI- 
LE übersetzt man sinvollerweise mit 
»arbeite, solange dıe Bedingung er- 





füllt ıst«, Die Schleife wird also dann, 


beendet, wenn die Bedingung nicht 
mehr erfüllt ıst: 

10 DO WHILE A<=5 

20 : INPUT A 

30 LOOP 

40 PRINT ”ENDE” 


‚In diesem kleinen Beispiel wurde 
eine Schleife programmiert, die so 
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Das $uper- 
128 


C 64-Besitzer können ein an davon singen: 


Nichts geht bei einer anspruc 


svolleren Programmie- 


rung ohne die Befehle PEEK und POKE, ohne SYS und 

endlose DATA-Wüsten. Das wird nun mit dem C 128 
anz anders. Wir haben für Sie dieses völlig neue 
rogrammier-Gefühl ausprobiert. 


lange durchlaufen wird, bis man 
eine Zahl eingibt, die größer als 5 ist. 
Dann ist die Schleifenbedingung 
nicht mehr erfüllt und die Pro- 
grammausführung wird in Zeile 40 
fortgesetzt. 

UNTIL ist genau das Gegenstück 
zum WHILE-Kommando. Hier qilt: 
Die. Abarbeitung wird beendet, so- 
bald die Bedingung erfüllt ıst (das 
Basic bleibt also ın der Schleife, so- 
lange die Bedingung nicht erfüllt 
ist). Aber auch hierzu wieder ein 
kleines Beispiel: 

10 DO 


20 : TNBiERA anna 
30 LOOP UNTIL A<5 
40 PRINT ”ENDE” 
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Bild 1: Dank der neuen Befehle kann man 


solche Figuren ohne viel Aufwand zeichnen 


Diesmal arbeitet das Programm 
genau anders herum, das heißt 
wenn der eingegebene Wert von A 
kleiner als 5 ıst, dann verzweigt das 
Programm nach Zeile 40. Welchen 
der beiden Befehle man einsetzt ıst 
Geschmackssache, denn man kann 
die Bedingung immer so »verdre- 
hen«, daß beide verwendet werden 
können. | 

Die Aufmerksamen unter Ihnen 
werden bestimmt schon bemerkt 
haben, daß die Bedingung imersten 
Beispiel beim DO, im zweiten aber 
bei LOOP steht. Steht UNTIL oder 
WHILE am Schleifenkopf, dann 
fragt das Basic bereits beim Eintritt 


in die Schleife, ob die Aussprungbe- 
dingung zutrifft. Dies würde wieder- 
um beim eben gezeigten Beispiel 
dazu führen, daß der Computer den 
Programmablauf gleich nach der 
Eingabe von »RUN« wieder been- 
den würde, da die Variable A dann 
ja die Null enthält. Damit wäre die 
Bedingung nicht erfüllt, obwohl man 
noch gar keine Gelegenheit gehabt 
hatte, in Zeile 20 einen Wert einzuge- 
ben. 

Eine weitere Möglichkeit, eine 
Schleifenkonstruktion zu verlassen, 
bietet der Befehl EXIT. Wie der Na- 
me schon sagt, beendet man damit 
die laufende Abarbeitung und ver- 
zweigt in die nächste Zeile nach 


188 REM zE3T2FSFE EEE LEERE EHEH EEE ei 
118 REM *%** HYPERBOL ISCHES PARABOLID “xx« 


138 REM zZ2242:KS Es ce KH EEE EHRE EI HE KH Ei 
148 REM 
145 GRAPHIC1,1 


158 SCALE 1,1823,1823 
155 COLOR 1,2 
1665 A= 888:B= 388:C= 288:D=- ?788:X= 15 


178 FOR T= 8 TO X: DRAW 1,B/84T,C/KsT+D/X#CX-T) 
TO A+B/X#T,<C+D)/X#Ti NEXT 

188 FOR T= 8 TO X: DRAW 1,R/R#T,D/R&CX-T) 
TO B+A/XsT,C+tD,’R#Ti NEXT 





Listing 1. Das Basic-Programm zu Bild 1 


LOOBP In der Regel wird man den 
EXTT-Befehl daher von einer Bedin- 
gung abhängig machen. 

Eine weitere Quelle von Ärgernis- 
sen beim Programmieren waren 
bisher die IF. THEN-Konstruktionen. 
Hinter dem THEN fanden oft nur 
drei bis vier Befehle Platz, so daß 
man oftmals umständlich im Pro- 
gramm hin- und herspringen mußte, 
um die Ausführung fortzusetzen. 
Auch dies wurde Jetzt mit den Kom- 
mandos BEGIN und BEND anders. 

Man setzt in den THEN-Zweig ein- 
fach ein BEGIN-Kommando ein. 
Trıfft die Bedingung bei der 
IF. THEN-Abfrage zu, dann behan- 
delt das Basic alle folgenden Zeilen 
bis BEND so, als würden sie ın der 
gleichen Zeile hinter dem THEN-Be- 
fehl stehen. Erst ein BEND-Befehl 
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beendet die Abarbeitung der 
THEN-Folge. 

Ebenfalls neu ist beim 7.0-Basic 
das Befehlswort ELSE. Findet der 
Computer ım Basic-Programm eine 
IF-Abfrage vor, dann hat er prinzi- 
piell zwei Möglichkeiten. Entweder 
die Bedingung tnfft zu, dann wırd 
der Programmteil nach THEN aus- 
geführt, der sich Jetzt dank BEGIN 
und BEND über beliebig viele Zer- 
len erstrecken kann. Andernfalls ı9- 
noriert das Basic den Rest der Zeile 
und fährt in der nächsten mit der 
Programmabarbeitung fort. Genau 
für diesen Fall würde der Befehl EL- 
SE vorgesehen. Wie er eingesetzt 
wird, sollwiederum eın Beispiel ver- 
deutlichen: 

10 INPUT A 
20 IF A=2 THEN B=9 : ELSE B=2 
30 PRINT B 

Der ELSE-Zweig wird in der Ab- 
frage genau dann ausgeführt, wenn 
die Bedingung (hier A=2) nicht zu- 
trifft. Die Benutzung dieser Kon- 
struktion hat wiederum den Vorteil, 
daß man nicht mehr um die nächste 
Zeile »herumspringen« muß, was 
wiederum der Übersichtlichkeit 
des Programms zugute kommt. 

Auch im ELSE-Zweig können die 
neuen BEGIN- und BEND-Komman- 
dos eingesetzt werden, wodurch 
sich dieser wiederum auf mehrere 
Zeilen ausdehnen läßt. 


SPRITE NUMBER? i 





Bild 2: Der eingebaute Sprite-Editor 
des € 128 


Auch auf enem ganz anderem 
Gebiet hat sich beim 7.0 Basic eini- 
ges verändert. Gegenüber dem Ba- 
sic 2.0 des C 64 sind sehr komfor- 
table Kommandos zum Zeichnen 
von Punkten, Linien, Rechtecken 
und Kreisen hinzugekommen. Auch 
das Ausfüllen von geschlossenen 
Flächen ist mit Basic 7.0 kein Pro- 
blem mehr. Leider beziehen sich al- 
le Grafik-Befehle nur auf die bereits 
vom © 64 bekannte Grafikauflösung 
von 320 x 200 Punkten. Die ebenfalls 
— wenn auch auf Umwegen — mög- 
liche doppelte Auflösung von 640 x 
200 Punkten wird vom Basic leider 
nicht unterstützt. Die Grafik-Befehle 
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des 7.0-Basic entsprechen den be- 
reits vom 3.5-Basic des C 16 und Plus 
4 bekannten Kommandos. Auch die 
zahlreichen Befehlserweiterungen 
für den C 64 verwenden ähnliche 
Grafik-Kommandos. In Listing 1 ıst 
ein kleines Beispielprogramm zu fin- 
den, um den Lesern, die keine C 
64-Basic-Erweiterung besitzen, zu 
demonstrieren, wie einfach selbst 
kompliziertere Figuren (Bild ]) er- 
stellt werden können. 

Wirklich neu sind hingegen die 
Kommandos für dıe Verwaltung von 
Sprites. Beginnen wir mit der Defini- 
tion eines solchen beweglichen Ob- 
jekts. Sehr hilfreich ist da der einge- 
baute Sprite-Editor, der entweder 
vom Programm aus oder direkt mit 
»SPRDEF« aufgerufen werden kann 
(Bild 2). Hierin wird man zunächst 
einmal nach der Nummer des Spri- 
tes gefragt. Hat man diese Zahl zwı- 
schen 1 und 8 eingegeben, so kann 
es mit dem eigentlichen Sprite- 
Entwurf losgehen. Dazu bewegt 
man den Zeichenzeiger mit den nor- 
malen Cursortasten auf dem 24x 2] 
großen Feld hin und her. Das Lö- 
schen beziehungsweise Setzen von 
einzelnen Pixels erfolgt dann mittels 
der Tasten 1 und 2 (bei Multicolor- 
sprites auch noch die 3 und 4). Ist 
der künstlezisch SEILER geglückt, 
dann u, man mit 'FRETURN 
die Definition beenden. 


PRINT"HABEN SIE IHRE SPRITES 
SCHON DEFINIERT ?"”: GETKEY A$ 
IF A$= "J" THEN 58 
PRINT"SPRITE #1": 
PRINT”"SPRITE #2": 


SLEEP 1: SPRODEF 
SLEEP 1: SPRDEF 


COLLISION 1,1988 
SCNCLR 

SPRITE 1,1,1,8,1,1 
SPRITE 2,1,2,1,1,1 


MOVSPR 1,388,198 
iBaB MOVSPR 2,8,188 
118 MOVSPR 2,99#4 
115 DO 
128 IF BUMB <1)=8 THEN SCNCLR 
138 LOOP 
1888 SCNCELR: CHAR 1,18,28,”"BO0000MM"” 
1818 RETURN 





Listing 2. So einfach ist def-Umgang 
mit Sprites in Basic 7.0 


Mit dem Editieren allein ıst es na- 
türlich nicht getan. Darum werden 
vom 7.0-Basic auch Befehle für das 
Setzen und Bewegen von Sprites zur 
Verfügung gestellt. Das Beispiel in 
Listing 2 soll hier wiederum die neu- 
en Kommandos verstehen helfen. 
Hier hat der Benutzer zunächst ein- 
mal die Möglichkeit, sich zwei Spri- 
tes zu erstellen. Dazu wird der eın- 
gebaute Editor zweimal aufgerufen. 

Der nächste neue Befehl COLLI- 
SION legt eine Programmzeile fest, 
in die das Basic verzweigen soll, 
wenn sich zwei Objekte treffen. Be- 
sonders positiv ist, daß sich der Be- 
nutzer nicht mehr explizit um die Ab- 


frage zu kümmern braucht. Hatman 
die Ansprungzeile einmal festge- 
legt (in unserem Beispiel Zeile 1000), 
so unterbricht das Basic bei einer 
Kollision der entsprechenden Spri- 
tes automatisch den Programm- 
ablaufund verzweigt ın die vorgege- 
bene Zeile. Dort kann der Program- 
mierer dann angemessen auf das 
Ereignis reagieren. Ist diese Abar- 
beitung beendet, so kehrt man mit- 
tels »RETURN« wieder ın das zuvor 
unterbrochene Programm zurück. 

Nun aber wieder zurück zu unse- 
rem Beispielprogramm in Listing 2. 
Als nächtes müssen die Attribute für 
jedes Sprite wie zum Beispiel Sicht- 
barkeit, Vordergrundfarbe, Priorität 
und so weiter, angegeben werden. 
Diese Festlegung erledigt man über 
den SPRITE-Befehl. Die Positionie- 
rung und das Bewegen der Objekte, 
wird mit einem anderen Kommando 
bewerkstelligt: mit »MOVSPR 1,200, 
300« positioniert man Sprite l aufder 
Bildschirmposition X=200 und Y= 
300. Mit »MOVSPR 1,90#5« bringt 
man es dann auch noch zum Laufen. 
Die 90 gibt dabei die Himmels- 
richtung an (90= Bewegung nach 
rechts), die 5 ist für die Geschwin- 
digkeit zuständig. Diese Bewegun- 
gen werden per Interrupt gesteuert, 
daß heißt auch darum muß sich der 
Benutzer nicht kümmern. Ist der Be- 
wegungsablauf einmal program- 
miert, geht alles Weitere automa- 
tisch. Schaltet man die Sprites nıcht 
wieder ab, so bewegen sie sich So- 
gar nach Beendigung des Pro- 
gramms weiter über den Bild- 
schirm! 

Speichern und Laden von Sprites 
ist im neuen Basic natürlich auch 
möglich. Der Befehl SPRSAV über- 
trägt die Grafikdaten — je nach Stel- 
lung der Parameter — ın Strings 
oder zurück. Dies ist sehr einfach: 
Gibt man»SPRSAV 1, A$«ein, so wird 
das Sprite in diesem String abge- 
speichert. Vertauscht man die Para- 
meter, also »SPRSAV A$,l« so er- 
reicht man den umgekehrten Pro- 
zeß: Der Inhalt des Strings A$ wird 
als Bitmuster dem Sprite Nummer | 
zugewiesen. 

Dies war nun eine erste kleine Ein- 
führung in die Befehlsfülle des neu- 
en 7.0-Basic. Mit einer näheren Be- 
schreibung aller Basıc-Befehle wä- 
re leicht ein ganzes Buch zu füllen. 
Aber auch die Beschreibung der in- 
teressantesten neuen Sprachele- 
mente dürfte schon so manchem C 
64-Besitzer einen Vorgeschmack 
darauf geben, welche neuen 
Programmier-Dimensionen sich mit 
dem Basic 7.0 auftun. 

(Christoph Sauer/ev) 
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Der neue Commodore 128 hat ein großes Echo unter unseren 
Lesern gefunden. Trotz ausführlicher Berichterstattung tauchen immer wieder 
neue Fragen auf, die zum C 128 gestellt werden. Die am häufigsten 
gestellten Fragen werden hier beantwortet. 


Welche Bedeutung haben die vielen beim 
C 128 vorhandenen Sondertasten? 

Die vier allgemeinen Funktionsta- 
sten (Fl bis F8) oberhalb des Ziffern- 
blocks haben eine ähnliche Aufga- 
be wie beim © 64. Allerdings sind im 
C 128-Modus diese Tasten bereits 
vorbelegt: 


GRAPHIC 
DLOAD” 
DIRECTORY 
SCNCLR 
DSAVE” 


Grafik-Modus ein 
Programm laden 
Directory anzeigen 
Bildschirm löschen 
Programm 


speichern 
Programm starten 
Programm listen 
Maschinensprache- 
Monitor aktivieren 


RUN 
LIST 
MONITOR 


Man kann die Belegung dieser Ta- 
sten mit dem KEY-Kommando anzei- 
gen oder ändern. 

Links neben den Funktionstasten 
befinden sich vier zusätzliche Cur- 
sortasten, die In ihrer Funktion mit 
den rechts unten vorhandenen Cur- 
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sortasten übereinstimmen (nicht 
wirksam im C 64-Modus). 

Die restlichen Sondertasten ha- 
ben spezielle Funktionen: 

Mit der ESC-Taste können speziel- 
le ESC-Funktionen ausgelöst wer- 
den (Tabelle ]). 

TAB ist eine Tabulator-Taste, mit 
der der Cursor an die nächste Tabu- 
latorposition gesetzt wird. 

Mit der ALIF-Taste können Sonder- 
funktionen beliebigen anderen Ta- 
sten zugeordnet werden. Das ist al- 
lerdings vom verwendeten Pro- 
gramm abhängig. Soll eine Funktion 
auigerufen werden, so ist die zuge- 
ordnete Taste zusammen mit der 
ALI/-Taste zu drücken. 

Die ASCIVDIN-Taste schaltet zwi- 
schen ASCI- und DIN-Zeichensatz 
und der entsprechenden Tastatur- 
belegung um. Sıe funktioniert auch 
im C 64-Modus (!), allerdings wird 
hier nur der Zeichensatz geändert, 
während die Tastaturbelegung 
gleich bleibt. Das führt zu recht 


merkwürdigen Ergebnissen. Zum 
Beispiel erreicht man im C 64-Mo- 
dus den Umlaut »A« durch die Ta- 
stenkombination (COMMODORE)- 
F. Bild 1 zeigt die komplette Tastatur- 
belegung im © 64-Modus, wenn die 
DIN-Taste aktiviert ist. Die ASCIV/ 
DIN-Taste ist die einzige Sonder- 
funktions-Taste, die auch im C 64- 
Modus eine Wirkung hat. 

Die HELP-Taste dient zum leichten 
Auffinden von Fehlern in Basic- 
Programmen. Sie sollte immer dann 
gedrückt werden, wenn das Pro- 
gramm aufgrund einer Fehlermel- 
dung abbricht. Dadurch wird die 
Zelle, in der der Fehler auftrat, am 
Bildschirm aufgelistet und die Feh- 
lerstelle revers markiert. 

LINE FEED erzeugt auf dem Bild- 
schirm einen Zeilenvorschub ohne 
Wagenrücklauf (Carriage Return). 
Wird diese Taste gedrückt, wandert 
der Cursor um eine Zeile nach un- 
ten, ohne seine derzeitige Spalten- 
position zu verlassen. 
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Bild 1. Tastaturbelegung des C 128 im C 64-Modus bei gedrückter DIN-Taste 


Pin Signal 

Masse 

Masse 

Rot 

Grün 

Blau 

Intensität 
Monochrom-Signal 
Horizontale Synchronisation 
Vertikale Synchronisation 


l 
2 
3 
4 
5 
6 
7 
8 
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40/80 DISP schaltet vom 40- zum 
80-Zeichen-Bildschirm um. Diese 
Taste rastet beim Drücken ein und 
muß bereits vor dem Einschalten 
des Computers in die gewünschte 
Position gebracht werden. Eine Be- 
tätigung bei laufendem Computer 
bleibt bis zu einem Reset wirkungs- 
los. 

NO SCROLL verhindert das Bild- 
schirmscrolling. Wird diese Taste 
beispielsweise während des Listens 
eines Programms gedrückt, dann 
wird die Auflistung nach 25 Zeilen 
unterbrochen und erst auf Tasten- 
druck fortgesetzt. 

Wie schließt man einen beliebigen RGB- 
Monitor an den C 128 an? 

Falls der Monitor über einen 
Standard-RGB-Stecker verfügt, gibt 
es keine Probleme: Einfach den 
Stecker in die RGB-Buchse des C 
128 einstöpseln, und der Anschluß 
ıst getätigt. Andernfalls finden Sie in 
Bild 2 die Pin-Belegung der RGB- 
Buchse am C 128. Eine Zeichnung 
der Buchse finden Sie auch im 
Commodore-Handbuch, Anhang L, 
Seite 1 (Steckerbelegungen). Leider 
wurde im Handbuch aber verges- 
sen, die dazugehörige Pin-Bele- 
gung abzudrucken. Mit den Infor- 
mationen aus Bild 2 sollte sich jeder 
RGB-Monitor anschließen lassen. 
Das Monochrom-Signal entspricht 
dem Luminanz-Signal bei der Com- 
posite-Video-Schnittstelle. Über die- 
ses Sıgnal ist auch der Anschluß ei- 
nes monochromen Monitors mög- 
lich. 
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ste Funktion 


Insert-Modus ein 

Untere rechte Ecke eines Win- 
dows definieren 

Insert-Modus aus 
Bildschirmzeile löschen 
Cursor-Blinkmodus aus 
Cursor-Blinkmodus ein 
Akustisches Signal ein 
Akustisches Signal aus 

Neue Bildschirmzeile einfügen 
Cursor an Zeilenanfang setzen 
Cursor an Zeilenende setzen 
Bildschirm-Scrolling ein 
Bildschirm-Scrolling aus 
Normal-Modus 80-Zeichen- 
Bildschirm 

Insert-, Anführungs- und Invers- 
Mod nung 
Bildschirmzeile bis Cursor- 
Position löschen 

Bildschirmzeile ab Cursor-Position 
löschen 

Invers-Modus 80-Zeichen- 
Bildschirm 

Block-Cursor ein 

Obere linke Ecke eines Windows 
definieren 

Strich-Cursor ein (nur bei 80 Zei- 
chen) 

Rollt Bildschirm um eine Zeile 
nach oben 

Rollt Bildschirm um eine Zeile 
nach unten 

Umschaltung 40/80 Zeichen und 
zurück 

Voreingestellte Tabulatorstops set- 
zen 

Alle Tabulatorstops löschen 
Bildschirm ab Cursor-Position lö- 
schen 


Tabelle 1. Die ESC-Funktionen beim C 128 





Bild 2. Pinbelegung der RGB-Buchse am 
C 128 





Welche Grafik-Modi stehen beim € 128 zur 
Verfügung? 

Der C 128 verfügt über fünf ver- 
schiedene Grafik-Modi, die über 
den GRAPHIC-Befehl ausgewählt 
werden können: 

GRAPHIC 0: Text 40 Zeichen pro 
Zeile 

GRAPHIC 1]: Hochauflösende 
Grafik 

GRAPHIC 2: Hochauflösung mit 
Textfenster 

GRAPHIC 3: Multicolor-Grafik 

GRAPHIC 4: Multicolor mit Text- 
fenster 

GRAPHIC 5: Text 80 Zeichen pro 
Zeile 

Die Grafik-Modi 0 bis 4 arbeiten 
über den Composite-Video-Äus- 
gang, Modus 5 über den RGB-Moni- 
tor-Ausgang. Die Grafikauflösung 
beträgt wie vom © 64 gewohnt 320 x 
200 Punkte bei Hochauflösung und 
160 x 200 Punkte bei Multicolor. Zu- 
sätzlich steht — allerdings mit eini- 
gen Tricks auf Maschinensprache- 
Ebene — noch eine Grafikauflösung 
von 640 x 200 Punkten über ROGB zur 
Verfügung. 


Kann man den C 128 auch mit einem Fern- 
sehgerät als Bildschirm betreiben? 


Als einfachste Möglichkeit, um so- 
fort mit dem © 128 arbeiten zu kön- 
nen, bietet sich natürlich ein bereits 
vorhandenes Schwarzweiß- oder 
Farbfernsehgerät an. Mit dieser mi- 
nımalen Grundausstattung können 
Sıe Ihren C 128 bereits betreiben. 
Dazu brauchen Sie nur das mitgelie- 
ferte Antennenkabel in die dafür 
vorgesehene Buchse an der Rück 
seite des Computers einstecken und 
das andere Ende mit dem Äntenne- 
neingang Ihres Fernsehers verbin- 
den. Der © 128 »sendet« auf Kanal 36 
ım UHF-Bereich. 

sie sollten allerdings bedenken, 
daß Sie mit einem normalen Fern- 
sehgerät den 80-Zeichen-Modus 
des C 128 (wichtig für CP/M) nicht 
ausnutzen können. 
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Basic 7.0 auf dem 
Commodore 128 


Auch für Einsteiger ist der C 
128 aufgrund seines sehr guten 
Basic ein idealer Computer. Ge- 
nau andiese Gruppe von Lesern 
wendet sich dieses Buch aus 
dem Markt & Technik-Verlao. In 
den ersten Kapiteln wırd man 
nach und nach mit den Grundzü- 
gen der Basic-Programmierung 
vertraut gemacht. Großen Raum 
nehmen dabeinatürlich die neu- 
en Kommandos des Basıc 7.0 
ein, wie sie zum Beispiel für 
strukturiertes Programmieren 
oder zum Aufspüren und Behan- 
deln von Fehlern vorhanden 
sind. 

Ein weiteres umfangreiches 
Kapitel in diesem Buch ist dem 
Thema Dateiverwaltung gewid- 
met. Hier kommen besonders 
die neuen Befehle für die Disket- 
tenstation zum Tragen. Äber 
auch die Erstellung und Benut- 
zung von sequentiellen und rela- 
tiven Files sind, dank des neuen 
Basic 7.0, auch für anfänger- 
orientierte Bücher keine Tabu- 
themen mehr. 

Weitere Schwerpunkte sind 
die Programmierung von Grafik 
und Sound. Hier wird speziell 
auf die hochauflösende Grafik, 
die neuen Sprite-Befehle und 
die Sound-Kommandos einge- 
gangen. Wer sich ernsthaft für 
denC 128 interessiert, der findet 
in diesen Kapiteln eine gute 
Grundlage zum Erlernen der 
vielen, gegenüber demC 64 neu 
hinzugekommenen Basic-Be- 
fehle. 

Viele Beispiellistings sowie 
Tıps und Tricks runden dieses 
empfehlenswerte Buch ab, das 
vor allem für den Einsteiger und 
den Basic-Umsteiger vom C 64 
sehr interessant sein dürfte. 

(Christoph Sauer/ev) 
Info: Jürgen Hückstädt: Basic 7.0 auf dem 
Commodore 128, Markt und Technik Ver- 


lag AG, 250 Seiten, ISBN 3-89090-170-0, 
52 Mark 


Das Premierenbuch 
»Der neue C 128« 


Kaum ist der C 128 auf dem 
Markt, findet man bereits die er- 
sten Bücher über diesen Com- 
puter in den Läden. Eines dieser 
Erstlingswerke ist das Premie- 
renbuch von Data Becker »Der 
neue Commodore 128«. Wie fast 
alle Bücher, die zur Zeit für den 
C 128 erhältlich sind, beschäftigt 
sich auch dieses im wesentli- 
chen mit dem neuen Basic 7.0. 
Dazu gehört natürlich eine kom- 
plette Befehlsübersicht, in der 
alle neuen (und natürlich auch 
dıe alten, vom C 64 bekannten) 
Befehle und Kommandos be- 
schrieben sind. 
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Bücher zum C 128 
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SUSHI 


Ein bern ind Nachschlagewerk 





Vier Bücher für Einsteiger und Interessierte 


Aber auch die interne Organı- 
sationdesC 128kommt bereitsin 
diesem Buch nicht zu kurz. Be- 
sonders die Aufteilung des Spei- 
chers nimmt (verständlicherwei- 
se) einen sehr breiten Raum eın. 
Gerade das Arbeiten mit den 
verschiedenen Speicherbänken 
ist ja eine völlige Neuheit, so daß 


zuschaffen und verständlicher- 
weise nicht die Katze ım Sack 
kaufen wollen. 

(Christoph Sauer/ev) 
Info: Gerits, Kampow: Das Premierenbuch 


»Der neue C 128«, Data Becker, 216 Seiten, 
ISBN 3-89011-062-2, 39 Mark 


diese Informationen, a _ 
reich sind. Viele Bu 


Grafiken unterstützen die Bemü- 
hungen der Autoren, dem Leser 
die doch nicht ganz einfach zu 
verstehende Materie nahezu- 
bringen. 


Den größten Teil dieses 
Buches nimmt jedoch die Be- 
fehlsübersicht des neuen Basic 
7.0 ein. Die Darstellung ist ähn- 
lich wie im Handbuch gelöst 
worden, das heißt auf Jeder Sei- 
te wird ein Befehl anhand von 
ein oder zwei kurzen Beispielen 
erklärt. Diese Aufstellung ist 
nach Gebieten wie zum Beispiel 
Grafik, Sound und so weiter sor- 
tiert, so daß man sich schnell im 
umfangreichen Befehlssatz zu- 
rechtfindet. 


Ein Anhang mit der Belegung 
der Zeropage schließt dieses 
Buch ab, das trotz des frühen Er- 
scheinungstermins erstaunlich 
viele tiefgehende Informationen 
enthält. 


Allerdings muß man anmer- 
ken, daß die Befehlsübersicht 
natürlich auch im erfreulich um- 
fangreichen offiziellen C 128 
Handbuch von Commodore zu 
finden ist (sogar um einiges aus- 
führlicher), so daß dem stolzen 
Besitzer eines C 128 dieses Buch 
vermutlich nur wenig Neues sa- 
gen wird. 


Daher ist das Premierenbuch 
zum C 128 besonders jenen zu 
empfehlen, die sich mit dem Ge- 
danken tragen, dieses Gerät an- 


Das Commodore 128 
Handbuch 


Nicht nur vom Namen her 
leicht mit dem _ Original- 
Handbuch zu verwechseln ist 
dieses Buch zum C 128. Das 
knapp 400 Seiten starke Werk 
besteht zu 275 Seiten aus einem 
Anhang, der im wesentlichen 
aus einer Auflistung aller Befeh- 
le des 7.0 Basic besteht. Es gilt 
hier das gleiche wie für Data 
Beckers Premierenbuch: Wer 
sich tatsächlich einen © 128 zule- 
gen will, der bekommt von Com- 
modore ein sehr umfangreiches 
Handbuch mitgeliefert, das zu- 
dem kostenlos ist. 


Nun aber zum Buch selbst: 
Nach Begriffserklärungen im eer- 
sten Kapitel geht der Autor zu- 
nächst auf die drei unterschied- 
lichen Betriebsmodi des C 128 
ein. Für Hardwarefreaks wer- 
den gleichzeitig die dazugehöri- 
gen Bausteine auf der Compu- 
terplatine kenntlich gemacht 
und deren Bedeutung erklärt. 


Grafik und Sound werden 
ebenso von »innen heraus« be- 
leuchtet, wie das komplizierte 
Bankswitching. Gut gelungen ist 
auch das Kapitel über die Ar- 
beitsweise des eingebauten Ma- 
schinensprachenmonitors. 


Wer die begehrten Tips und - 


Tricks sucht, der findet in »Das 






Commodore 128 Handbuch« ein 
Programm, mit dem man Grafik 
auch auf dem 80-Zeichen-Bild- 
schirm darstellen kann. 

Fazit: das Urteil über dieses 
Buch fällt gemischt aus. Zum ei- 
nen enthält es nützliche Informa- 
tionen für alle diejenigen, die 
tiefer in ihren C 128 einsteigen 
möchten. Zumanderen ist da die 
Befehlsübersicht, die nur für 
den Nicht-Besitzer interessant 
ist. Am besten wird man diesem 
Buch wohl gerecht, wenn man es 
als allgemeinen Überblick über 
das C 128-System bezeichnet. 

(Christoph Sauer/ev) 


Info: Peter Rosenbeck: Das Commodore 
128 Handbuch, Markt und Technik Verlag 
AG, 400 Seiten, ISBN 3-89090-171-9, 52 Mark 


CP/M — Ein Lern- und 
Nachschlagewerk 


Hierbei handelt es sich um ei- 
nen Band aus der Reihe 
»Software-Schnellkurs« aus dem 
Markt & Technik-Verlag. Dieses 
Buch befaßt sıch mit CP/M nicht 
aus der Sicht von Prozessor und 
Betriebssystem, sondern aus 
der Sicht des Anwenders. Ein 
Nachschlagewerk also für dieje- 
nigen, die nicht wissen wollen 
wie CP/M intern arbeitet, son- 
dern die es einfach nur bedie- 
nen wollen. Und für diesen Per- 
sonenkreis ıst dieser CP/M- 
Schnellkurs genau das Richtige. 

Auf 90 Seiten wird der Anwen- 
der auf einfache Weise und mit 
vielen Beispielen mit den wich- 
tigsten CP/M-Kommandos ver- 
traut gemacht. Gleichzeitig 
dient das Buch als Nachschlage- 
werk, falls man einmal etwas 
vergessen haben sollte. Durch 
den Ringbuch-Einband kann 
man das Buch einfach aufge- 
schlagen neben dem Computer 
liegen haben, ohne befürchten 
zu müssen, daß es bei allzu häufi- 
ger Benutzung in seine Bestand- 
teile zerfällt. 

Leider bezieht sich dieser 
Schnellkurs noch auf die älteren 
CP/M-Versionen bis 2.2, was al- 
lerdings kein allzugroßer Nach- 
teil ist, da die grundlegenden 
Kommandos bei allen Versionen 
die gleichen sind. 

Nach der Devise »Lernen 
durch Benutzen« bekommt man 
durch dieses Buch schnell Routi- 
ne bei der Verwendung der ein- 
zelnen CP/M-Befehle. Dieser 
Software-Schnellkurs, den es 
übrigens auch für spezielle 
CP/M-Software wie zum Beispiel 
Wordstar, dBase und Multiplan 
gibt, ist ein sinnvoller Helfer für 
den Umgang mit CP/M und ge- 
hört neben jeden CP/M-Com- 
puter. 

(Christoph Sauer/ev) 


Info: Wolfgang Maaß: Software-Schnellkurs 
CP/M, Markt und Technik Verlag AG, ISBN 
3922120-55-5, 37 Mark 
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Hardware-Test 


Geheimtip: 
RFI DP 165 


Mit dem DP 165 kostet der 
Einstieg in die Drucker- 
Spitzenklasse kein Vermö- 
gen mehr. Wer keine Angst 
vor einem unbekannten 
Namen hat, erhält er- 








staunlich viel für sein Geld. 


er DP 165 (Bild )D ist ein 
D°.<«=: der ursprünglich für 

den professionellen Einsatz an 
Personal Computern wie dem IBM 
PC entwickelt wurde. Dementspre- 
chend hoch istsein Leistungsniveau. 
Mit mehr als 165 Zeichen pro Sekun- 
de gehört der DP 165 zu den ausge- 
sprochen schnellen Druckern. Un- 
seren Probetext schaffte er in sehr 
guten 1:48 Minuten und steht ın der 
Rangliste direkt hinter dem Star SR 
10, der allerdings fast 600 Mark teu- 
rer ist. Trotz der hohen Geschwin- 
digkeit überrascht der DP 1655 durch 
einen angenehm niedrigen Ge- 
räuschpegel. Das alleine macht na- 
türlich noch keinen Drucker der 
Spitzenklasse aus. Wie aus der Ta- 
belle zu sehen ist, bietet der DP 165 
eine enorme Vielfalt an Funktionen 
und Schriftarten. Bei der Syntax der 
Steuerbefehle glänzt der DP 165 
durch vollständige Gleichheit mit 
dem Epson FX-80, dessen Befehle 
schon fast als Standard gelten kön- 
nen. Der Unterschied zum FX-80 
liegt in der NLQ-Schrift (Near Letter 
Quality = Schöndruck), die sich so- 
gar mit proportionalen Zeichenab- 
ständen drucken läßt (Bild 2). 


Epson-Steuerbefehle 


Die NLOQ-Schrift ist auf drei ver- 
schiedene Arten einzustellen. Ein- 
mal durch einen Steuerbefehl, 
durch eine separate Taste auf dem 
Bedienfeld und durch einen der gut 
erreichbaren DIL-Schalter auf der 
Gehäuserückseite. Die Qualität die- 
ser Schrift kann sıch sehen lassen 
(Bild 3), zumal der DP 165 ın der 
NLO-Schrift immer noch schneller 
(und leiser) druckt als die meisten 
Typenraddrucker. Normalerweise 
ist das Aussehen der NLQ-Schrift 
durch die im ROM des Druckers ab- 
gelegten Werte bestimmt (17 x 17 
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Bild 1. Ein echter Profidrucker — Der RFI DP 165 


Matrix). Erweitert man das interne 
RAM von 2 KByte auf 8 KByte, wird 
es sogar möglich, eine eigene NLQ- 
Schriftzu entwerfen. Ohne die RAM- 
Erweiterung bleibt der selbstdefi- 
nierte Zeichensatz auf die, schon 
vom FX-80 her bekannte, 9x 9 Zer- 
chenmatrix beschränkt. Eine ande- 
re Methode, selbstdefinierte Zeı- 
chen und Grafiken auszudrucken, 
besteht in der Verwendung der um- 
fangreichen Grafik-Fähigkeiten des 
DP 165. Alle Hardcopy-Routinen, die 
für diem EpsomDrueker program- 
miert wurden, funktionieren, ohne 
jede Anderung, auch zusammen mit 
dem DP 165. Besitzt man das optio- 
nale Commodore-Interface (235 


Mark), kommen sogar noch die 
Grafik-Routinen für dem MPS 3801- 
Drucker hinzu (Simons Basic, Super- 
grafik). 

Der praktische Wert eines 
Druckers hängt allerdings nicht nur 
von seinen Fähigkeiten, sondern 
auch vom Bedienungskomfort ab. 
Dazu gehört ein einfach zu bedie- 
nender Papiereinzug, ein Papier- 
transport, derein direktes Abreißen 
des Papiers über dem Druckkopf 
ermöglicht und eine Druckersteue- 
rung über Funktionstasten. Alle die- 
se Bedingungen erfüllt der DP 169. 
Das Papier, das entweder Einzel- 
oder Endlospapier mit Randlo- 
chung sein kann, wird ohne großen 


Der RFI DP 165 
Der DP 165 ist ein professioneller Drucker 


Er Im wıchHh: % breit 


und schaal 


Das ist die NLO-Schift im Proportional-Modus 


Alle anderen Funktionen sind wie beim FX 80 





Bild 2. Der DP 165: Near Letter Quality-Schrift und alle FX 80-Funktionen 


Name des Druckers :RFIDP 165 


Schriftarten 


: Pica schnell, Pica schön, Elite, komprimiert, Doppeldruck, 


Fettschrift, Breitschrift 


Geschwindigkeit 
NLO-Schrift Jar x 
Unterstreichen :ja 
Zeichenmatrix :9x9 
Papierarten : Einzel/Endlos 
Spaltenbreite v-b :O bis 186 
Selbsttest : ja, Hexdump: ja 


Schnittstellen 
Pufferspeicher 
Rückwärtstransp. 
Grafikmodi 
Sonderfunktionen 


ı 2 KByte 


:ja 'Hor. Tab.: ja 
: 480, 960, 960 Punkte pro Zeile 
: variabler Zeilenabstand, Setzen rechter, - linker Rand, 


: angegeben 165 Z/s, gemessen 169 Z/s, Probetext: 1:48 


NLO-Geschw.: 41 Z/s 

Proportional: ja 

Zeichenvorrat: 96 ASCIL, 96 Ital., 8 Int. 
Durchschläge: 3 

Papierbreite: 10,1 bis 25,4 Zentimeter 
Automat. Einzelbl.-Einz.: nein 


: Centronics (Standard), RS232, IEEE 488, CBM m. ext. Interf. 


Ladbarer Zeichens.: ja, 96 Zeichen 
Ver. Tab.: ja 


Hochstellen, Tiefstellen, unidirektionaler Druck, rechter und 
linker Rand mit Tasten einstellbar 


Funktionstasten 
Ausstattung 


: On-Line, LF, FF 


: Farbband, deutsche u. englische Handbücher, Papierführung 


Tabelle. Die wichtigsten Daten des DP 165 
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C 64 


AaBb 


Bild 3. Erst bei fünffacher Vergrößerung 
treten Einzelpunkte hervor 

Aufwand von hinten in den Drucker 
eingelegt und durch zwei Stachel- 
walzen transportiert. Die Stachel- 
walzen sind in ihrem Abstand belıe- 
big verstellbar. Auch das Einlegen 
des Farbbandes ist nicht schwieri- 
ger als bei einem FX-80, zumal des- 
sen Farbbänder problemlos pas- 
sen. Die vier Bedienungstasten des 
DP 165 haben neben den Standard- 
funktionen wie Zeilen- und Seiten- 
vorschub noch eine weitere Bedeu- 
tung erhalten. Mit ihnen lassen sich 
auf einfache Weise die linken und 
rechten Ränder des Schreibfeldes 
einstellen. 


Problemloser Anschluß 


Um den DP 165 an den C 64 oder 
C 128 anzuschließen, gıbt es mehre- 
re Möglichkeiten. Normalerweise 
ist der DP 165 mit einer Centronics- 
Schnittstelle ausgestattet. Wer kei- 
nen Wert auf die Commodore-eige- 
nen Steuerzeichen legt, kann sich 
mit einem einfachen User-Port- 
Kabel (zirka 50 Mark) behelfen. Da- 
neben wırd vom Hersteller eın ex- 
ternes Interface angeboten, das für 
eine vollständige Anpassung an die 
Belange der Commodore-Compu- 
ter sorgt. Der DP 165 wird dann ein- 
fach am seriellen Bus des Compu- 
ters, wie ein Floppy-Laufwerk ange- 
schlossen. Die dritte Möglichkeit 
besteht darin, ein serielles RS232- 
Interface einzubauen und den 
Drucker wie einen Akustikkoppler 
anzusprechen. 

Der DP 165 ıst ohne Zweifel eın 
Drucker der Spitzenklasse. Mit ei- 
nem Preis von 1498 Mark hält er 
sich, gemessen an seinen Fähigkeı- 
ten (Tabelle), in erfreulich beschei- 
denen Grenzen. Seine vollständige 
Übereinstimmung mit den Funktio- 
nen der Epson FX-80-Drucker, er- 
gänzt durch die NLQ-Schniftund den 
niedrigen Geräuschpegel, zeich- 
nen den DP 165 aus. Mit diesen Lei- 
stungen gehört der DP 165 in eine 
Klasse mit dem Star SR-lO und dem 
Centronics Horizon. Sein um zirka 
600 Mark unter dem dieser Konkur- 
renten liegender Preis, machen ıhn 
zusätzlich interessant. Wer sich et- 
was abseits von den Pfaden der grö- 
ßeren Druckerhersteller umschaut, 
kannalsodurchaussomanche Mark 
sparen. (aw) 


Info: RFI Elektronik GmbH, Mittelstr. 12a, 4050 Mönchen- 
gladbach 2, Telefon 02166/48077, Preis: 1498 Mark 
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Bild 1. Der CP-80X, ein Schnittstellen-Meister 


Melchers CP-80X — wie 





hätten Sie's denn gern? 








Mit seinen drei re Schnittstellen kennt der 


CP-80X keine Ansc 


Iußprobleme. Lesen Sie, warum 


der CP-80X so qut zum C 64 und C 128 paßt. 


beinahe als Chamäleon be- 

zeichnen, denn er versteht es, 
sich ganz an die Schnittstellen der 
verschiedefiäten Corhptre: anzu- 
passen. Die Konstrukteure des 
CP-80X haben ihn gleich mit den 
drei der gängigsten Normen (außer 
RS232) ausgerüstet: einer Centro- 
nics parallel, einer seriellen IEC- 
(wie sie der C 64/C 128 hat) und eı- 
ner parallelen IEC-Schnittstelle. Für 
uns war natürlich seine serielle IEC- 
Schnittstelle am wichtigsten. Der Än- 
schluß des CP-80%X ist sehr einfach, 
er wird mit einem Kabel direkt an 
den Computer, beziehungsweise 
das Floppy-Laufwerk, angeschlos- 
sen. Danach ist der CP-80X sofort 
einsatzbereit. Trotzdem sollte man 


D: CP-80X (Bild 1) könnte man 


Name des Druckers : CP-80X 


nicht sofort mit dem Drucken begin- 
nen. Es lohnt sich, zunächst das aus- 
führliche, in Deutsch geschriebene, 
Handbuch durchzulesen. Im Unter- 
schied zu den meisten Drucker- 
Handbüchern sind die dort abge- 
druckten Beispieleprogramme im 
Basic des C 64 (das im Basic des 
C 128 enthalten ist), geschrieben. 
Die Einarbeitung in die umfangrei- 
chen Fähigkeiten des CP-80X sollten 
darum auch einem Anfänger leicht- 
fallen. Die Steuerbefehle des 
CP-80X stellen eine gelungene Kom- 
bination aus den Befehlen der Com- 
modore MPS-Reihe und denen ei- 
nes Epson RX-80 dar. Dadurch wird 
erreicht, daß die meisten Program- 
me, die für die MPS-Reihe geschrie- 
ben wurden, mit wenigen Änderun- 


Schriftarten : Fettdruck, Doppeldruck, komprimierte Schrift, vergrößerte 
Schrift 

Geschwindigkeit angegeben: 80 Z/s, gemessen: 83 Z/s, Probetext: 3:25 

NLO-Schrift : nein NLOQ-Geschw.: entfällt 

Unterstreichen :ja Proportional.: nein 

Zeichenmatrix :8x8 Zeichenvorrat: CBM +3,68,ü,B, AOU 

Papierarten :ı Einzel-/Endlos Durchschläge: 3 

Spaltenbreite v-b :Obis 143 „ Papierbreite: 101,6 bis 2354 mm 

Selbsttest : ja, Hexdump: nein Automatischer Einzelbl.Einz.: nein 

Schnittstellen : Centronics parallell, IEC seriell, IEC parallel,alle eingebaut 

Pufferspeicher : nein Ladbarer Zeichens.: nein 

Rückwärtstransp. : nein Hor. Tab.: ja Ver. Tab.: ja 

Grafikmodi : 480 und 960 Punkte pro Zeile 

Sonderfunktionen : Hoch- und Tiefstellen, unidirektionales Drucken 

Funktionstasten : On Line, FF, LF 

Ausstattung : Drucker, Handbuch, Farbband, Anschlußkabel, Papierhalter 


Tabelle. Die wichtigsten Daten des CP-80X 
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Der HC SP-888 
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Bild 2. Die vielseitigen Schriftarten des 
CP-80X verkleinert 


gen funktionieren. Es ist erfreulich, 
daß eine Druckersteuerung mit den 
bekannten ESC-Befehlen trotzdem 
erhalten wurde. Unser Probeaus- 
druck (Bild 2) zeigt, daß alle Funktio- 
nen des Druckers ohne viel Auf- 
wand programmiert werden kön- 
nen. Die reverse Schrift wurde bei- 
spielsweise durch die Verwendung 
der CTRL- und RVS ON-Taste inner- 
halb der Anführungsstriche er- 
zeugt. Die Druckersteuerungerfolgt 
somit bei einigen Befehlen analog 
zur Cursorsteuerung auf dem Bild- 
schirm. Drucker kann man aber 
nicht nur sehen, sondern auch hö- 
ren. Der CP80X gehört zu den 
Druckern, die man, ohne Angst vor 
den Nachbarn, auch in der Etagen- 
wohnung betreiben kann. Überhö- 
ren kann man ihn — wie Jeden 
Nadel-Matrixdrucker — allerdings 
nicht. Erfreulich war auch das Er- 
gebnis unseres Geschwindigkeits- 
tests. Im Handbuch wird die Ge- 
schwindigkeit des CP-80X mit 80 Zei- 
chen pro Sekunde angegeben, un- 
seren Messungen nach schaffte das 
Testgerät aber gute drei Zeichen 
mehr. Dieser Vorteil macht sıch na- 
türlich erst bei längeren Texten, wie 
unserem Probetext, den er in der 
Zeit von 3:25 ausdruckte, bemerk- 
bar. Zu den Fähigkeiten eines guten 
Matrixdruckers wie dem CP-80X ge- 
hört neben der Darstellung von Tex- 
ten auch die Grafik. Der CP-80X 
wird diesem Anspruch ın Jeder Hin- 
sicht gerecht, denn seine Grafikauf- 
lösung reicht von 480 bis zu 960 
Punkten pro Zeile. Die Verwendung 
einiger Hardcopy-Routinen, wie bei- 
spielsweise der COPY-Befehl von Sı- 
mons Basic, funktionieren allerdings 
nicht auf Anhieb. Der Hersteller legt 
dem CP-80X für diesen Zweck ein 
eigenes kleines Zusatz-Handbuch 
mit Hilfsprogrammen bei. Eine 
Übersicht aller weiteren techni- 
schen Daten finden Sie in der Ta- 
belle. 


Schneller als angegeben 


Wenden wir uns nochmals den 
Schnittstellen des CP-80X zu. Mit 
den drei eingebauten und einer 
nachrüstbaren RS232-Schnittstelle 
ıst der CP80X mehr als üppig aus- 
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Bild 3. Der fünffach vergrößerte 
Buchstabe A der Normalschrift 


gestattet. Das Umschalten zwischen 
den einzelnen Schnittstellen erfolgt 
über eine Reihe von DIL-Schaltern. 
Je nachdem, wie diese Schalter ein- 
gestellt sind, belegt der CP-80X die 
ausschließlich vorhandene Centro- 
nics-Buchse mit einer anderen 
Norm. Das bedeutet, daß er ohne 
zusätzliche Erweiterungen sowohl 
am C 64/C 128, alsauch an verschie- 
dene andere Computer direkt an- 
schließbar ist. Einzig der für die DIL- 
Schalter gewählte Platz war Anlaß 
zur Kritik, denn sie befinden sıch in- 
nerhalb des Gehäuses an unzugän- 
glicher Stelle. 

Der CP-80X ıst nıcht nur wegen 
seiner Schnittstellen, sondern auch 
durch seine Funktionsvielfalt ein 
universeller Drucker. Jeder, der 
Texte bearbeiten und korrekte Li- 
stings mit allen Cursor-und Grafik- 
zeichen ausdrucken möchte, findet 
einen SFR Sröllstäf@igen CBM- 
Zeichensatz vor. In einigen wesentli- 
chen Details unterscheidet sich die- 
ser Zeichensatz allerdings von de- 
nen der Commodore-Drucker — er 
wurde um die deutschen Umlaute 
ergänzt. Leider entsprechen die 
CHR$Werte für die Umlaute bei 
den bisher verkauften Geräten noch 
nicht der normalen ASCIITabelle. 
Nach Aussagen des Herstellers 
wird ein neues Zeichensatz-ROM, 
bei dem eine Standard-ASCIF-Tabel- 
le zugrunde gelegt wird, gerade 
entwickelt. Mit dieser Änderung 
wäre der CP-80X dann auch für den 
DIN-Modus des C 128 geeignet. 


Preiswert und flexibel 


Der CP-80X ist mit einem Preis von 
889 Mark als grafikfähiger Drucker 
wohl hauptsächlich durch seine 
Vielseitigkeit interessant. Obwohl 
sein Schriftbild (Bild 3) durchaus als 
gut bezeichnet werden kann, fehlt 
doch die, heute schon fast zum Stan- 
dard gewordene, NLQ-Schrift. Die- 
sen Nachteil wiegt der CP-80X aller- 
dings durch seine umfangreichen 
Befehle und die gut gelungene An- 
passung an den © 64 wieder auf. 

(aw) 


Info: Melchers & Co., 2800 Bremen |, Schlachte 39/40, Tel.: 
0421/176989 


Aaı 


C 64 


son GX-80. 





ner für alle 


Der Epson GX-80 präsen- 
tiert sich mit einem 

völlig neuen Konzept: den 
Steckmodul-Schnitt- 
stellen. Wir haben Vor- 
und Nachteile verglichen. 


G 


anz anders, als die bisherigen 
Druckergenerationen von Ep- 
son, besitzt der GX-80 (Bild ]) 
keine Schnittstelle im herkömmli- 
chen Sinne An Stelle einer Än- 
schlußbuchse hat der GX-80 einen 
Modulschacht. Durch dieses Kon- 
zept soll eine möglichst perfekte An- 
passung an die verschiedensten 
Computer erreicht werden. Das in 
jedem Fall notwendige und im Preis 
enthaltene Interface wird einfach in 
den Modulschacht eingesteckt und 
verleiht dem GX-80 alle Fähigkeiten, 
die er braucht, um an dem betref- 
fenden Computertyp zu arbeiten. 
Wir haben den GX-80 mit Commo- 
dore-Modul getestet. In dieser Ver- 
sion besitzt der GX-80 eine Schnitt- 
stelle, die am seriellen Bus des C 64 
angeschlossen wird. Die Anpas- 
sung an die Besonderheiten des 
C 64, wie Grafik- und Steuerzeichen, 
ist damit total. Es ist beinahe unmög- 
lich festzustellen, daß der GX-80 
nicht von Commodore selbst stammt. 
Alle Programme, die für den MPS 
802, beziehungsweise MPS 801 ge- 
schrieben wurden, sind ohne große 
Änderungen auf dem GX-80 funk- 
tionsfähig. Auch in seinem äußeren 
Erscheinungsbild paßt der GX-80 
sehr gut zu den Commodore-Com- 
putern, insbesonderszum © 128. Die 
Reihe der Neuerungen hört aber 
nicht beim Interface-Konzept auf. 
Der GX-80 ist der einzige Epson- 
Drucker dieser Preisklasse, der 
über die sogenannte NLO-Schnift 
(Near Letter Quality = Schönschrift) 
verfügt. Die NLOQ-Buchstaben des 
GX-80 sind im Gegensatz zum Star 
SR-10 etwas runder und nıcht ganz so 
scharf geschnitten (Bild 2). Aus nor- 
maler Leseentfernungfallen die Ab- 
stände zwischen den einzelnen Ma- 
trixpunkten allerdings kaum noch 
auf. Außerdem besitzt der GX-80 ei- 
nen einfachen Grafikmodus mit 480 
Punkten pro Zeile. Damit erreicht 
der GX-80 allerdings nicht die Lei- 
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stungen des seit langem bekannten 
RX-80. Dafür beherrscht der GX-80 
alle Commodore-spezifischen Zeıi- 
chensätze. Der korrekte Ausdruck 
von Listings ist somit sichergestellt. 
Anders sieht es bei der Eignung zur 
Textverarbeitung aus. Trotz der 
Druckgeschwindigkeit von 100 Zeı- 
chen pro Sekunde und der NLQ- 
Schrift eignet sich der GX-80 für die- 
se Anwendung weniger. Es war uns 
nicht möglich, den deutschen Zer- 
chensatz mit und ohne Textverarbei- 
tungsprogramm zu realisieren. 
Wahrscheinlich wurde zugunsten ei- 
ner vollkommenen Anpassung an 
die Commodore-Computer darauf 
verzichtet. Auch die Druckge- 
schwindigkeit entspricht nıcht den 
Erwartungen. Mit einer Zeit von 3:30 





Der Epson GX-80 


Dies ist der Fettdruck 


Grafikreichen: 
ur II —--] 


Name des Druckers :Epson GX-80 
Schriftarten 
Geschwindigkeit 
NLO-Schrift :ja 
Unterstreichen ı nein 
Zeichenmatrix :8x8 
Papierarten : Einzel/Endlos 
Spaltenbreite v-b :O bis 136 


Selbsttest : ja, Hexdump: ja 


Schnittstellen 
Pufferspeicher 
Rückwärtstransp. 
Grafikmodi 
Sonderfunktionen 
Funktionstasten 
Ausstattung 


: nein 
; nein 


: On Line, FF, LF 
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Bild 1. Der GX-80, ein Drucker mit »versteckten« Fähigkeiten 


u BE 7 Zu 
AT nn et 


Hor, Tab.: nein 
:480 Punkte/Zelle | 
: Einstellen der Schriftarten mit den Funktionstasten 





für unseren Probetext konnte der 
GX-80 nicht ganz befriedigen. 


Der Heimarbeiter 


Der GX-80 ist eindeutig für die 
Heimanwendung konzipiert wor- 
den. Dafür sprechen nicht nur die 
einfache Handhabung, sondern 
auch die neue Konstruktion des Pa- 
pierantriebs. In der Grundausstat- 
tung ist der GX-80 mit einem Frik- 
tionsantrieb ausgestattet. Damit las- 
sen sich nur Einzelblätter und Rol- 
lenpapier verarbeiten. Gegen ei- 
nen Aufpreisevomd2 ıdMawiw ist ein 
Traktorantrieb, dessen Montage 
problemlos ist (einfach aufstecken), 
erhältlich. Zu dieser Investition ist in 
jedem Fall zu raten, denn Endlospa- 











Die NLQ-Schrift ist neu bei Epson 


Auch der Doppeldruch laest sich einstellen 
In koaprisierten Druck passen 156 Zeichen in eine Zeile 
Fr Cry aemen id Erin in en 


Fir c»ı %sscıhır i # U 


Bild 3. Die Schriften des GX-80 sind 
nicht alle programmierbar 


: Breit, revers, komprimiert, fett, doppelt 
: angegeben: 100 Z/s, gemessen: 98 Z/s 


NLO-Geschw.: 20 Z/s 
Proportional.: nein 

Zeichenvorrat: CBM 
Durchschläge: 2 

Papierbreite: 101 bis 205 mm 
Automatischer Einzelbl. Einz.: nein 


(option) 
: IEC seriell, verschiedene Module 


Ladbarer Zeichens.: nein 
Ver. Tab.: nein 


: Drucker, Handbuch, Papierseparator, Interface, Farbband 
Tabelle. Die wichtigsten Daten des GX-80 
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Bild 2. Die fünffach vergrößerte 
NLQ-Schrift zeigt deutliche Einzelpunkte 


pier mit Randlochung ist immer 
noch die preiswerteste Art, größere 
Papiermengen zu bedrucken. Ein, 
gelegentlich recht sinnvoller, Einzel- 
blatteinzug wird für zusätzliche 219 
Mark angeboten. 

Weit gewichtiger als das Fehlen 
eines Traktorantriebs (in der Grund- 
ausstattung) ist die Begrenzung der 
programmiıerbaren Funktionen 
(Bild 3) auf die der Commodore- 
Drucker. Alle Variationen der 
Schrift (Fett, NLQ, komprimiert) sind 
nur mit einem ebenfalls neuen Ver- 
fahren einzustellen. In praxi sieht 
das folgendermaßen aus: man betä- 
tigt die »On Line«- und »Form Feed«- 
Taste gleichzeitig und befindet sich 
im »Select«-Modus. Mit der »On Li- 
ne«Taste wird die gewünschte 
Schriftart (Tabelle) ausgewählt und 
mit der »Form Feed«Taste einge- 
speichert. Dieses Verfahren mag für 
den Anwender, der den Drucker 
nicht selbst programmieren möchte, 
sicherlich recht praktisch sein. Je- 
der, der seinen Drucker nit allen 
Funktionen, auch programmgesteu- 
ert, flexibel einsetzen möchte, wird 
die »Handprogrammierung« schon 
bald ablehnen. 


NLQ-Schrift 
zum Niedrigpreis 


Mit dem Preis von 998 Mark (plus 
82 Mark für den Traktor) ist der 
GX-80 einer der preiswertesten 
Drucker mit NLOQ-Fähigkeit auf dem 
Markt. Sein gutes Aussehen, der 
niedrige Geräuschpegel und die 
vollkommene Anpassung an den 
C 64 sind Argumente, die für diesen 
Drucker sprechen. Leider wurde 
beider Realisierung der Commodo- 
re-Anpassung einiges der prinzi- 
piell vorhandenen Fähigkeiten ver- 
schenkt. Ein Drucker, ohne die pro- 
grammgesteuerte Funktionswahl 
und deutsche Umlaute, kann den 
heutigen Ansprüchen, auch im 
Heimbereich, nicht mehr gerecht 
werden. Es bleibt zuhoffen, daß die- 
se feinen, aber wesentlichen Punkte 
noch korrigiert werden. Erst dann 
wird der GX-80 zum universell ver- 
wendbaren Drucker, für fast jeden 
Zweck, zu einem interessanten 
Preis. (aw) 


Info: Epson Deutschland GmbH, Am Seestern 24, 4000 Düs- 
seldorf 11, Tel. 0211/59520 
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Die Beschleunigungssysteme für die 1541 werden immer besser. 


Zwei Systeme werden hier wohl das Rennen um die Gunst der Käufer machen: 
SpeedDos plus und Prolögic"DoS- Wir haben sie getestet. 


B: 2: für die 1541 gibt 


es Inzwischen viele: Von der 
reinen Software-Lösung (Hy- 
pra-Load) bis zur Installation eines 
parallelen Busses. Am schnellsten 
und sichersten sind die letztgenann- 
ten! Systeme, leider aber auch am 
teuersten. 

Die zwei derzeit wohl besten 
Hardware-Erweiterungen haben 
wir unter dıe Lupe genommen. Sie 
zeichnen sich beide durch Ge- 
schwindigkeit, Komfort und Zusatz- 
funktionen aus. 


SpeedDos plus — 
klein, aber oho! 


Da wäre eıst einmal SpeedDos 
plus, die verbesserte Version von 
SpeedDos. Geliefert werden zwei 
neue Betriebssysteme und ein Ka- 
bel zum Preis von 269 Mark. Interes- 
sant ıst SpeedDos hauptsächlich 
deswegen, weil es inzwischen 
schon einige Programme gibt, die 
die SpeedDos-Hardware ausnut- 
zen, so zum Beispiel das Kopierpro- 
gramm »FCopy Ill«, (vorgestellt in 
B4’er 8/85), das Schnelladesystem 
»FLoad 3.0« (siehe Kasten) und das 
Kopierprogramm »Copy +« (siehe 
unter Aktuell). 
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Wie gesagt, ist SpeedDos plus eı- 
ne leicht verbesserte Version des 
bekannten SpeedDos. Da wir 
SpeedDos aber schon ın der Ausga- 
be 4/85, Seite 22, ausführlich gete- 
stet haben, wollen wir hier nur ein- 
mal einen groben Überblick geben 
und die Unterschiede zu SpeedDos 
selbst aufzeigen. 

Die SpeedDos-Hardware ıst rela- 
tiv einfach aufgebaut. Die parallele 
Busübertragung läuft über ein zehn- 
poliges : Flachbandkabel. Dieses 
wird am User-Port des C 64 ange- 
schlossen. Auf der Laufwerksplati- 
ne muß zum Anschluß ein Baustein 
(6522) gesockelt werden. 

Ins Betriebssystem des Compu- 
ters wurden integriert: eine Basic- 
Erweiterung ähnlich dem DOS- 
Wedge auf der Commodore-Demo- 
Diskette, eine Centronics-Schnitt- 
stelle (ebenfalls am User-Port), eine 
Funktionstastenbelegung, ein Mini- 
Monitor sowie Verbesserungen an 
der LIST- und der RESET-Routine. 

Auf der Laufwerksseite finden 
sich an Verbesserungen: schnelles 
Formatieren mit vollem Verify (23 Se- 
kunden), Löschschutz für Files, Zen- 
trieren der Diskette beim Einlegen 
sowie schnellere Tonkopfbewegun- 
gen. 


Für SpeedDos plus wurden zu- 
sätzliche Veränderungen ım Be- 
triebssystem des Computers vorge- 
nommen. Der parallele Bus und das 
Laufwerks-Betriebssystem ist iden- 
tisch zu SpeedDos. Folgende Verän- 
derungen hat SpeedDos plus zu bie- 
ten: eine OLD-Funktion, Hardcopies 
vom Textbildschirm, Rechnungen in 
Binär, Oktal und Hexadezimal von 
Basic aus, sowie einige kleine 
Editor-Verbesserungen. 

Die Verträglichkeit der Erweite- 
rung zu professioneller Software ıst 
sehr hoch: Sollte ein Programm mit 
den schnellen Lade-Routinen von 
SpeedDos nicht laufen, kann man 
auflangsamere, aber verträglichere 
Routinen durch Angabe der Sekun- 
däradresse Zwei beim LOAD-Be- 
fehl umschalten. Im Notfall ziehtman 
einfach den User-Port-Stecker ab, 
und schon wırd wieder ganz normal 
(und langsam) geladen. Wir konnten 
während der 'estzeit kein Pro- 
gramm auftreiben, das sich nicht zur 
Zusammenarbeit mit SpeedDos 
plus bewegen ließ. Fast hätten wir's 
vergessen: Natürlich macht Speed- 
Dos plus Ihre Floppy schneller. Wie- 
viel schneller, das können Sie aus 
der Tabelle ersehen, in der ein paar 
typische Zeiten festgehalten sind. 
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Prologic Dos — Das 
Geschwindigkeitswunder 


Der zweite Beschleuniger heißt 
Prologic Dos und ist eine kleine Sen- 
sation: 23mal schneller laden wurde 
versprochen und das mitnormal ge- 
speicherten Programmen. Um dies 
zu erreichen, mußte allerdings ein 
etwas größerer Aufwand bei der 
Laufwerks-Hardware getrieben 
werden. Trotz der komplizierten Er- 
weiterungsplatine im Laufwerk soll 
Prologic Dos nur knapp 300 Mark 
kosten. Durch die eingesteckte Zu- 
satzplatine wird beispielsweise er- 
reicht, daß ein kompletter Track im 
Laufwerks-RAM zwischengespei- 
chert werden kann. Die Daten, die 
sich auf einem Track befinden, kön- 
nenin einer Umdrehung der Disket- 
te gelesen werden. Dann sind vor- 
erst keine Zugriffe auf die Diskette 
mehr nötig, erst wieder bei einem 
Trackwechsel. In der Zwischenzeit 
können die angeforderten Daten so- 
fort aus dem RAM an den Computer 
weitergegeben werden. Ähnlich 
funktioniert das Schreiben. Hier 
wird der Track im RAM zusammen- 
gestellt und erst wenn er fertig ist, 
auf die Diskette geschrieben. Wel- 
che fantastischen Lade- und Spei- 
chergeschwindigkeiten damit mög- 
lich sind, können Sie unserer Tabel- 
le entnehmen. 

Wie gesagt, ist die Prologic Dos- 
Hardware etwas umfangreicher als 
die von SpeedDos. Eine große Zu- 
satzplatine für das Laufwerk und ei- 
ne weitere für den Expansionport 
des Computers werden geliefert. 
Der Expansionport geht aber nicht 
verloren, da er durchgeführt ist. 
Verbunden sind die beiden mit ei- 
nem Flachbandkabel, welches 
gleichzeitig den parallelen Bus dar- 
stellt. Das Betriebssystem des Com- 
puters muß nicht ausgewechselt 
werden, da sich das neue Betriebs- 
system ebenfalls auf der Platine im 
Expansionport befindet. 

Aber neben der Beschleunigung 
bietet Prologic Dos noch einiges an 
Bedienungskomfort. So hat man jetzt 
die Möglichkeit, Disketten vierzig- 


Taden 
202 Blocks 


Speichem 202 Blocks” 
Formatieren = 
 Block- Read? 683 Blocks 


spurig zu formatieren, zu beschrei- 
ben und zu lesen. Dadurch ergibt 
sich ein Speicherplatzgewinn von 85 
Blöcken oder mehr als 20 KByte pro 
Diskette. Diese Option ist soft- und 
hardwaremäßig schaltbar. Außer- 
dem kann man von Basic aus an be- 
liebige Speicheradressen laden. Es 
läßt sich auch das RAM unter dem 
Basic-ROM ($A000-$BFFF) auf Dis- 
kette speichern. 

Aufder Computerseite findet man 
bei Prologic Dos die fast schon übli- 
chen Optionen: belegte Funktions- 
tasten, eingebautes DOS, modifizier- 
te LISI- und Reset-Routinen, Tasta- 
tur-Repeat, Textschirm-Hardcopy, 
sowie eine Centronics-Schnittstelle, 
die allerdings nicht den User-Port 
benutzt, sondern sich aufder Platine 
im Expansionport befindet. Diese 
Schnittstelle ist aber vollkommen zu 
User-Port-Schnittstellen kompatibel, 
das heißt, daß die üblichen Kabel 
verwendet werden können. Pro- 
gramme, dıe eingebaute User-Port- 
Centronics-Schnittstellen haben, 
können natürlich weiter genutzt wer- 
den, dann muß man sein Druckerka- 
bel auf den User-Port aufstecken. 
Übrigens sind, und das wırd Besit- 
zer von Akustikkopplern freuen, die 
RS232-Routinen bei ohlioß Dos 
vn TRRUR halt ben. 

Auch bei 1 en er hat sich 
einiges getan. So hat das Laufwerk 
ein neues Kommando bekommen: 
»X«. Mit diesem Kommando werden 
eine Reihe von Unterfunktionen ge- 
steuert: Schreibschutz für Einzelfiles 
installieren und aufheben, Zusatz- 
RAM inFloppy ein-und ausschalten, 
schnelle Übertragung ein- und aus- 
schalten, Verify nach Schreibzugrif- 
fen ein- und ausschalten sowie die 
Umschaltung 40/35 Tracks. 

Ein Fehler der 1541 wurde übri- 
gens mit einem Trick übergangen: 
Die Replace-Option beim SAVE- 
Befehl ®@«) funktionierte bisher 
nicht vernünftig. Bei Prologic Dos 
wird bei einem Replace einfach das 
alte File per Scratch gelöscht und 
dann das neue normal gespeichert. 


Prologic Dos kann ebenfalls eine 
sehr hohe Verträglichkeit zu fertiger 


SpeedDos plus Prologic Dos 


2 min li sec 


l min 41 sec 


2minOlsec 


Bemerkungen: ' - 1 _ . wenn mit SpeedDos plus gespeichen wurde, _ anne das jeweils die ersten beiden 
. Bytes eines Blocks het 





Tabelle. Zeitvergleich zwischen der »normalen« 1541, SpeedDos plus und Prologic Dos. 
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Software bescheinigt werden. Auch 
hier gilt: sollte ein Programm mal 
nicht laufen, genügt meistens ein 
Abschalten der schnellen Busrouti- 
nen, umzum gewünschten Ergebnis 
zukommen. Lobenswert gegenüber 
SpeedDos ist, daß dies auch softwa- 
remäßig geschehen kann. Und für 
ganz hartnäckige Fälle kann man 
Prologic Dos per DIP-Schalter kom- 
plett abschalten, so daß man wieder 
einen »Jungfräulichen« Commodore 
64 vor sich stehen hat. 

Was Prologic Dos aber gegen- 
über SpeedDos weit hinaushebt, 
ist sein Preis/Leistungs-Verhältnis. 
Trotz des Mehraufwands aufgrund 
der beiden umfangreichen Platinen 
soll es mit 298 Mark nicht viel mehr 
kosten als SpeedDos plus (269 
Mark). 

Spätestens mit Prologic Dos hat 
die zweite Generation der Floppy- 
Beschleuniger begonnen. Speed- 
Dos hat zwar die Vorteile eines ho- 
hen Verbreitungsgrades und ferti- 
ger Software. Trotzdem ıst Prologic 
Dos mit seinen Leistungen und seI- 
nem Preis mehr als nur Konkurrent 
im Rennen um den besten Floppy- 
Beschleuniger. Man darf gespannt 
sein, was die nächsten Monate uns 
noch bringen werden. (aw/bs) 


Info: SpeedDos plus: Elektronik-Service Christoph Dichte, 
Fährstr. 33, 2212 Brunsbüttel 

Prologic Dos: Jann Datentechnik, Glimmerwreg 22, 1000 Ber- 
lin 47. 
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as 154l-Laufwerk ist neben 
dem 1571 das einzige von Com- 
modore hergestellte Disketten- 
laufwerk, das an den C 64 direkt an- 
schließbar ist. Gleichzeitig Ist es 
ab er auch das langsamste. Warum 
beı der Entstehung des C 64 ausge- 
rechnet die 1541 (damals 1540) favo- 
risiert wurde, obwohl Commodore 
auch andere, wesentlich leistungs- 
fähigere Laufwerke herstellt, ist 
wahrscheinlich ein Relikt aus VC 
20-Zeiten. Der Preis ıst, zumindest 
heute, kaum noch ein Grund aufein 
größeres Laufwerk zu verzichten. 
Die SFD 1001, ein sehr schnelles 
Laufwerk mit einem MegaßByte Spei- 
cherkapazität, wird inzwischen 
schon für 698 Mark im Handel ange- 
boten und ist damit nicht wesentlich 
teurer als die 1541. Auch die 8250 (al- 
te Version), ein Doppellaufwerk mit 
zwei Megabyte, kostet heute weni- 
ger als 2000 Mark. Diese Laufwerke 
lassen sich leider nicht direkt am C 
64 anschließen, da sie einen paralle- 
len IEEE-488-Bus voraussetzen. Die- 
ser Bus arbeitet wesentlich schnel- 
ler als der serielle IEC-Bus des © 64. 
Natürlich können serielle Schnitt- 
stellen auch recht flott sein (über 
19200 Bit pro Sekunde), aber beim 
seriellen IEC-Bus kommt ein weite- 
res Manko hinzu: Das gesamte Bus- 
Timing wird durch Software gesteu- 
ert, die umständlich und langsam ar- 
beitet. Deshalb gibt es dort auch so 
viele Ansatzpunkte für Beschleuni- 
gungsroutinen, wie zum Beispiel das 
Programm »Hypra-Load«. 


Der IEEE-488-Bus 


Dieser Bus ist kein Commodore- 
typisches Konzept, er wird von ver- 
schiedenen Herstellern, vor allem 
für Mehrbenutzer- und Meßsyste- 
me, verwendet. Deshalb kann man 
ihn durchaus als Standard-Schnitt- 
stelle für Peripheriegeräte bezeich- 
nen. Er wurde bei nahezu allen Ge- 
räten von Commodore verwendet, 
die vor dem © 64 entwickelt wurden 
(zum Beispiel bei der 3000-, 4000-, 
und 8000-Serie). Sogar der legendä- 
re Pet 2001 verfügte über diese 
Schnittstelle. 

Darum ist es schwer verständlich, 
daß bei der Entwicklung des C 64 
von diesem bewährten Konzept ab- 
gewichen wurde. Glücklicherweise 
ist der C 64 ein sehr vielseitiger 
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Professionelle Floppy- 


Bild. Gar nicht mehr so teuer: Die »Traum-Laufwerke« von Commodore 


Computer. So dauerte es nicht lan- 
ge, bis. di ‚F-488-Interfa- 
ces EEE gen Markt ka- 
men. Sehr gut eignet sich dasin der 
64’er, Ausgabe 7/85 vorgestellte In- 
terface, nicht nur wegen seines Prei- 
ses (Bausatz 75 Mark, Fertiggerät 98 
Mark), sondern auch wegen der 
sehr guten Verträglichkeit mit den 
meisten kommerziellen Software- 
produkten. Viele Textprogramme 
arbeiten zum Beispiel völlig pro- 
blemlos mit diesem Interface. 

Es gibt eine große Palette IEEE- 
488-Peripheriegeräte von Commo- 
dore und anderen Herstellern. 
Schon die einfacheren Disketten- 
laufwerke wie die 2031 oder die 
4040 beeindrucken durch ihre 
Schnelligkeit, die fünfmal höher 
liegt als bei der 1541. Aber richtig in- 
teressant wird die Sache erst bei 
den Laufwerken SFD 1001 und 8250. 


Die großen Laufwerke 


Es ist schon eine beeindruckende 
Tatsache, wenn man nach dem For- 
matieren einer Diskette mit der SFD 
1001 die Meldung »4133 Blocks free« 
bekommt. Aber dieses Laufwerk ist 
nicht nur fünfmal so schnell und 
kann mehr als das Sechsfache sper- 
chern, dieser Platz ist auch vielseiti- 
ger verwendbar, als bei der 1541 
oder auch bei älteren Floppies, wie 


der 8050. Bei der 8050, einem Dop- 
pellaufwerk mit 500 KByte pro Dis- 
kette, dürfen relative Dateien nur zir- 
ka ein Drittel einer Diskette füllen. 
Diese Regelung gibt es bei der SFD 
1001 nicht mehr, so daß die Größe 
von relativen Dateien nur durch den 
verfügbaren Diskettenplatz be- 
grenzt ist. Gleichzeitig sind diese 
Laufwerke unerhört zuverlässig, ein 
kleines Beispiel aus der Praxis soll 
dies verdeutlichen. Beim Commo- 
dore Anwender-Club München ist 
eine SFD 1001 zum Betrieb der Club- 
Mailbox (Tel. 089/ 8120338) einge- 
setzt. Das Mailbox-Programm ist so 
konzipiert, daß es keinerlei Daten 
(außer dem Programm selbst) im 
Speicher hat. Die gesamte Daten- 
übertragung wırd direkt von und auf 
der SFD 1001 abgewickelt — eine 
enorme Belastung. Dies macht die 
SFD 1001 nun schon seit mehr als 
vier Monaten Tag für Tag, 24 Stun- 
den durchgehend. In dieser Zeit 
gab es keinen einzigen Schreib- 
oder Lesefehler! 

Alle IEEE-488-Laufwerke haben 
einen doppelt so großen Pufferspei- 
cher, wie die 1541. Das bedeutet, 
daß drei relative oder fünf sequen- 
tielle Dateien gegenüber einer rela- 
tiven oder drei sequentiellen Datei- 
en bei der 1541 gleichzeitig geöffnet 
sein dürfen. Besonders interessant 
ist das Arbeiten mit Doppellaufwer- 
ken, wie zum Beispiel der 4040, 8050 
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Laufwerke für den C 64 


Ein bis zwei Megabyte Speicher, fünfmal schnellere 

Datenübertragung und höchste Zuverlässigkeit am 

C 64 — warum nicht? Die »großen« Laufwerke von 
Commodore machen es möglich. 


oder 8250. Die 4040-Floppy besitzt 
als einzige das gleiche Aufzeich- 
nungsformat wıe die 1541, allerdings 
verleiht ihr der IEEE-488-Bus fast 
Flügel. Trotz des gleichen Disket- 
tenformats ist eine 4040 mehr als 
zwei zusammengekoppelte 1541. 


Ein Doppellaufwerk 
ist mehr als zwei 
Einzellaufwerke 


Durch die Befehle BACKUP und 
COPY dupliziert die 4040 beispiels- 
weise eine Diskette, ohne den Com- 
puter damit zu belasten. Diese gan- 
zen Möglichkeiten stehen natürlich 
auch mit der 8050- oder 8250-Floppy 
offen, nur mit wesentlich höheren 
Datenmengen. Das bedingt aber 
auch ein anderes Aufzeichnungsfor- 
mat auf der 5%-Zoll-Diskette. Eine 
8250 kann deshalb keine auf der 
1541 bespielte Disketten lesen und 
umgekehrt. Der einzige Weg, die 
Daten vom 1541 auf den SFD 1001- 
und 8250-Laufwerken zu verwen- 
den, besteht darin, sie zu überspie- 
len. Mit dem Überspielen kommer- 
zıeller Programme vom 1541l-aufdas 
8250-Format hat es allerdings so sei- 
ne Besonderheit auf sich. Obwohl 
die meisten Programme auch mit 
diesen Laufwerken (bei Verwen- 
dung des 64 er-Interfaces) problem- 
los funktionieren, ist man gezwun- 
gen, den, verständlicherweise an- 
gebrachten, Kopierschutz zu entfer- 
nen. Bei der Raffinesse heutiger 
Schutzarten wird das aber in der Re- 
gel ein erfolgloses Unterfangen 


DOS-Befehle 


Wenn man über ein Doppellauf- 
werk verfügt, bekommt zum Beispiel 
der DOS-Befehl COPY eine ganz 
neue Bedeutung. Mit ihm kann man 
jetzt einzelne Files von einer Disket- 


Ausgabe 10/Oktober 1985 


te auf eine andere kopieren. Man 
kann aber auch alle Möglichkeiten 
der Namensauswahl treffen, die 
schon von der 1541 her bekannt 
sind. Damit sind die Zeichen »%« und 
»*«, die die Programmauswahl aus 
dem Disketteninhaltsverzeichnis 
wesentlich erleichtern, gemeint. So 
kann man Jetzt zum Beispiel alle Pro- 
gramme, die mit »C« anfangen, mit 
dem Befehl: OPEN1,8,15»C0:*= 1:C*« 
leicht vom Laufwerk | zum Laufwerk 
0 kopieren. Übrigens kann man mit 
dem COPY-Befehl auch Dateien 
beim Kopieren zusammenfügen, 
wie es ja schon von der 1541 her be- 
kannt ist. Das geht aber eigentlich 
nur bei sequentiellen Dateien qut, 
da Programme nur physisch zusam- 
mengehänGtti@rh- Ss weniger 
bekannt ist, und auch beı der 1541 
geht, ist das Anhängen einer Datei 
an eine andere, ohne die erste Datei 
zu kopieren. Der Befehl lautet hier: 
»CO:FILEl=0:FILEl,0:FILE2«. 

Das bedeutet, daß die Datei mit 
dem Namen »FILE%« ein zweites Mal 
aufder Diskette angelegt und an die 
Datei »FILEIl« angehängt würde. Die 
Laufwerksbezeichnungen »0:« sind 
mit anzugeben, obwohl sie eigent- 
lich überflüssig wären. Werden sie 
weggelassen, so meldet dıe Floppy 
den Fehler »FILE EXISTS« und deu- 
tet damit an, daß sie die Dateı mit 
Namen »FILEI« auch kopieren will, 
aber der Zielname identisch mit 
dem Urnamen ist. Für Doppellauf- 
werke interessant ist der Befehl 
»DUPLICATE«, mit dem die Floppy 
eine komplette Kopie aller Informa- 
tionen durchführt. Dieser Befehl 
wird inden Handbüchern von Com- 
modore nicht erläutert. Deshalb sei 
hier näher darauf eingegangen. Die 
Syntax des Befehls lautet »D:1= 0«. 

Hierbei findet eine Datenübertra- 
gung einer gesamten Diskette vom 
Laufwerk 0 auf das Laufwerk | statt. 
Es geht natürlich auch umgekehrt, 
wenn man die beiden Werte ver- 
tauscht. Die Floppy formatiert die 
angegebene Zieldiskette erst und 
kopiert dann Spur für Spur von der 


Original- auf die Diskette. Dieser 
Vorgang läuft intern in der Floppy 
ab, belastet also weder den Bus 
noch den daran angeschlossenen 
Computer. 


Endlich ein angemesse- 
ner Massenspeicher 


Insgesamt betrachtet, kann man 
sagen, daß das Arbeiten mit den 
»großen« Floppies von Commodore 
einfach fantastisch ist. Man hat end- 
lich einen Massenspeicher, der 
dem C 64 gewachsen ist, sowohl ın 
bezug auf die Geschwindigkeit als 
auch den verfügbaren Speicher- 
platz. Der Star dieser Laufwerke 
(abgesehen vom Festplattenlauf- 
werk mit 9 MegaByte) ist die 8250, 
denn sie besteht aus zweı Laufwer- 
ken mit insgesamt vier Schreib-/Le- 
seköpfen. Mit ihr kann man 2 Mega- 
Byte direkt ansprechen. Das ist we- 
sentlich mehr als der Marktführer 
der Personal Computer, der IBM- 
PC, bieten kann. Dessen Laufwerke 
haben ın der Grundausstattung nur 
zweimal 360 KByte und damit kaum 
mehr als ein Drittel der Kapazıtät ei- 
ner 8250 anzubieten. 


Warum eigentlich nicht? 


Die 1541/1571 wird sicherlich das 
standard-Laufwerk für den C 64 
bleiben. In ihrem Disketten-Format 
gıbt es die meisten Programme und 
ihre Leistungen reichen in der 
Mehrzahl der Anwendungen auch 
aus. Da sich aber auch im Heimbe- 
reich Anwendungen wie Datenver- 
waltung und Textverarbeitung ıim- 
mer mehr durchsetzen, ist die Än- 
schaffung eines »großen« Laufwerks 
sicherlich eine Überlegung wert. Ei- 
ne der interessantesten Alternati- 
ven ıst die SFD 100], die, zusammen 
mit dem von uns veröffentlichten In- 
terface, weniger als 800 Mark kostet. 
Nicht zu unterschätzen ist auch der 
Preisvorteil bei den Speicherme- 
dien, denn immerhin paßt auf eine 
mit der SFD bespielten Diskette das 
Sechsfache einer 1541-Diskette. In 
Kombination mit diesen Speicher- 
riesen macht der C 64 fast seinem 
Nachfolger Konkurrenz, dem C 128. 

(K. Hinsch/aw) 
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che ein verstellter Schreib-Lese- 

kopf. Wird das Laufwerk zu ei- 
nem Reparaturservice einge- 
schickt, sind Wartezeiten bis zu drei 
Monaten leider üblich. Außerdem 
ist die Reparatur nicht ganz billig, 
und oft tritt der gleiche Fehler ıinner- 
halb kürzester Zeit wieder auf. 

Wir wollen Ihnen deshalb zwei 
Verfahren vorstellen, mit denen Sie 
das 1541-Diskettenlaufwerk selbst 
einstellen können, beziehungsweise 
von jedem Radio und Fernsehfach- 
handeleinstellen lassen können. Beı 
dem ersten Verfahren handelt es 
sich um eine reine Softwarelösung, 
mit der das Laufwerk zwar nicht 
exakt eingestellt werden kann, in 
den meısten Fällen ist es aber voll- 
kommen ausreichend. Mit dem 
zweiten Verfahren kann das Lauf- 
werk dagegen absolut genau einge- 
stellt werden. Benötigt wird aller- 
dings ein Oszilloskop. 


} n den meisten Fällen ist die Ursa- 


Fixierung der Mechanik 


Unabhängig vom Verfahren muß 
zuerst der Schreib-Lesekopf neu fi- 
xlert werden. Schalten Sie dazu bitte 
alle Geräte aus und ziehen das Netz- 
und IEC-Kabel aus dem Laufwerk. 

Nach dem Lösen der sechs Kreuz- 
schlitzschrauben auf der Unterseite, 
läßt sich der Gehäusedeckel des 
Laufwerks entfernen. Da sich der 
Schrittmotor, an dem später die Ein- 
stellung vorgenommen wird auf der 
Chassisunterseite befindet, muß 
auch der Gehäuseboden entfernt 
werden, der mit sechs Kreuzschlitz- 
schrauben befestigt ist. Lösen Sie 
bitte diese sechs Schrauben und zie- 
hen vorsichtig den Stecker ab, der 
die grüne Leuchtdiode mit der Plati- 
ne verbindet. Um später beim Zu- 
sammenbau Fehler zu vermeiden, 
markieren Sie alle Steckverbindun- 
gen mit einem Filzstift. Als nächstes 
lösen Sie alle Schrauben, die die 
Platine mit dem Chassis verbinden 
und ziehen vorsichtig die restlichen 
Steckverbindungen ab. 

Die Platine kann nun abgehoben 
und zur Seite gelegt werden. Liegt 
das »nackte« Chassis vor Ihnen, se- 
hen Sie auf der rechten Seite ein 
Stahlband, das den Schreib-Lese- 
kopf mit dem Schrittmotor über ei- 
nen Zylinder verbindet (Bild ]). Da 
der Zylinder sich bei Erwärmung 
mehr ausdehnt als die Achse des 
Schrittmotors und nur über eine 
Preßpassung mit dieser verbunden 
ist, tritt zwischen Schrittmotor-Achse 
und Zylinder ein Schlupf auf. Das 
heißt, daß sich der Zylinder auf der 
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Diskettenlaufwerk 
1541 selbst justiert 





Es ist»bekanntydaß das mechanisch anfällige 1541- 
Diskettenlaufwerk häufig Probleme beim Lesen 
eigener und im besonderen fremder Disketten hat. 
Hier werden zwei Verfahren vorgestellt, mit denen 
Sie diesen Fehler beseitigen können. 


Achse beim Formatieren einer neu- 
en Diskette verdreht und dadurch 
den Schreib-Lesekopf verstellt. Um 
das zu verhindern, muß die Achse 
und der Zylinder im betriebswar- 
men Zustand verklebt werden. Dazu 
eignen sich Superkleber, wie sie 
von vielen Firmen angeboten wer- 
den oder Epoxydharz, das mit ei- 
nem Härter versehen ausreichend 
Festigkeit gewährleistet. Lassen Sie 
diesen Kleber vorsichtig zwischen 
Achse und Zylinder laufen. Passen 
Sie aber auf, daß der Kleber nicht 
versehentlich mit dem Stahlband in 
Berührung kommt. Nach etwa drei 
Stunden Trockenzeit können Platine 
und Chassis zusammengeschraubt 
werden. Vergessen Sie nicht die 
Steckverbindungen wiederherzu- 
stellen. Der Schreib-Lesekopf ist 
jetzt fixiert, und der eigentliche Ein- 
stellvorgang kann beginnen. Stellen 
Sıe dazu das Laufwerk so vor sich 
hin, daß der Diskettenschacht senk- 


recht steht. Stellen Sie die Verbin- 
dung mit dem Computer und dem 
Netz wieder her und schalten alle 
Geräte ein. 


Verfahren 1 
(Softwarelösung) 


Laden Sıe das vorher abgetippte 
Programm (Listing ]) und legen eine 
»sauber« bespielte Diskette in das 
Laufwerk (am besten die Test Demo 
Diskette). Nach dem Lösen der zwei 

Schrittmotor-Befestigungsschrau- 
ben (Einstellschrauben) an der Un- 
terseite des Laufwerks, kann das 
Programm mit RUN gestartet wer- 
den. Der Menüunterpunkt »Feinein- 
stellung« eignet sich nicht zur Justie- 
rung des Diskettenlaufwerkes; denn 
hier werden alle Spuren getestet, 
und die Lesezeiten der einzelnen 
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100 REM »xxxx# FLOPPY - ADJUST xxuu## : <233> S88 PRINT" <CLR}BITTE KORREKT FORMATIERTE 2 

128 PRINT“ {CLR,CTRL-N,WHITE}":POKE 53280,1 ISKETTE" <246> 
2:POKE 53281,8:POKE 198,8 <166> 60B FRINT"EINLEGEN. (DATEN WERDEN {SPACE ,RVS 

149 G=1:MG=-3:Ri1=19: RQd=T: RV=B: A$=" (1BOSPACE} ON}NICHT {RVOFF „SPACE}+ZERSTOERT) " <1B6> 
“ <142> 618 FRINT:FRINT"NACH DIESER DISKETTE KANN 

158 CU=214:REM CURSORZEILE <126> DIE FLOFPY":PRINT"EINGESTELLT WERDEN" <135> 

168 FRINT" {HOME ‚ZDOWN}"A$"ELOPPY-EINSTELLH 8228 FRINT:FRINT"EERTIG ? BANN IASTE DRUECK 
LIFE" <128> EN" <218> 

178 FRINT" xSDOWN?}" <167> 6428 FOKE 198,8:WAIT 198,1:6GET G# <BbB> 

188 FRINT" EBERGTGRRRRRRRRRBRRRBGERRRGBEREGG 6880 ZL=-18:SF=12:REM FOS. F.BALKEN <a57> 
ERRBBRRE" ; <165> 722 DL=5999@3:REM ADR.DELETE LINE <212> 

198 IF C/Ri=INT(C/R1)THEN RV=NOT RV <178> 720 XR=781:REM X-REG.SYS <168> 

192 IF RV THEN PRINT" {RVSON}"; <146> 748 LB=2®: B$="<RVSON}":FOR F=1 TO LB:B$=B$ 

195 PRINT" {LIG.BLUE,8SPACE}BITTE MIT ’CRSR +" “NEXT <244> 
 WAEHLEN {8SPACE}"; <154> 788 DEF FN T(X)=INT (PEEK (X) /16) *1Q+PEEK (X) 

196 PRINT" {8SPACE DANN {?SPACE} " RELURN’ {2SP -INT (PEEK (X) /16) #16 <062> 
ACE }DRUECKEN {8SPACE ,WHITE}";:POKE 199, BAM Z=56328:5=Z+1:POKE S,B:POKE Z,® <099> 
". <126> 828 PRINT" {CLR,DOWN , 2SPACE }**%*%* {2SPACEIELO 

197 PRINTUTTTTTTTTTTT TH TH Tr PPY-ADJUST {2SPACE }%**** {2SPACE }V25.2.85 
Trrrir" <@74> u <@44> 

288 X=1:W$="SROBEINSTELLUNG":GOSUB 498 <B67> 840 : <@54> 

220 W$="FEINEINSTELLUNG":GOSUB 498 <112> 868 FOKE CU,5:PRINT:PRINT" DISK WIRD INITI 

248 W$=" (4SPACE}ENDE{7SPACEI":GOSUB 420 <223> ALISIERT" <115> 

280 GET G$:IF 6$=CHR$ (13) THEN 368 <198> 88@ OPEN 1,8,15,"I1":0PEN 2,8,2,"#" <189> 

‚308 IF G$="<DOWN}"THEN G=6+1: IF G>MG THEN 782 POKE CU,ZL:PRINT <a05> 
G=1 <159> 32@ PRINT TAB(SP)" + MAX. "SPC (LB-13) "MIN. 

328 IF G$="<UP}"THEN G=6-1: IF G<1 THEN G=M d" <182> 
e) <114> 748 T=Ti:REM TRACK <a35> 

3358 POKE 198,PEEK(198)AND 1 <059> 960 POKE S,@:POKE Z,® <881> 

348 GDTO 168 <11Q> 980 PRINT#1,"UlE"25@5T;1 <036> 

368 DON G GOSUB 445,445:0N 6 GOTO 440,500,4 1200 INPUT#1,E,E$,ET,ES:IF E THEN 1348 <B47> 
59 <BRR> 1048 TM=FN T(S)+FN T(Z)/18-D <059> 

582 GOTO 288 <198> 10&@ FL=NOT FL:IF FL AND FB THEN FOKE 5328 

488 FRINT:FRINT A$;:IF X=6 THEN FRINT" {RVS 8, (PEEK (53288) +1) AND 1:REM ALLE FARBE 
ON?" ; <152> N-AND15 <121> 

428 PRINT KW#" {RVOFF,„2SPACE}"; <BöB> 12888 TB=LB-LB*#(TM/MT}): IF TB<{®B THEN TB=B nn in Te 

438 IF X=6 THEN C=C+1 AND 15:IF C/RB=INT (C 1128 FPOKE XR,ZL:SYS DL <196> 
/RB) THEN PRINT" {LEFT}7«e"; <134> 1128 FRINT"ZEIT :"TM"S"TAB(SP)LEFT$ (B$,TB+ 

44®8 PRINT: X=X+1:RETURN <O22> 1) <949> 

445 FOKE CU,24:PRINT:FOR F=1 TO 11:FRINT:N 1148 FOKE CU,S:PRINT=:PRINT" {RVSON,„LIG.BLUE 
EXT:POKE CU, 18: PRINT <217> >EINSTELLUNG {2SPACE}O.K{5SSPACE,RVOFF, 

446 POKE 768,174:POKE 769,167:POKE 144,8:0 WHITE}"; <098> 
PEN 1,8,15:CL0OSE 1:REM TEST DEVICE PRE ch BINT"SPUR : "T"{LEFT,2SPACE}" <281> 
SENT Dans ir TM>MT THEN PRINT" {RVSON,UP,RED>FAL 

447 FOKE 768,139: POKE 769,227 <B61> SCHE EINSTELLUNG !'{RVOFF,WHITE}" <@B1> 

448 IF ST=8 THEN RETURN <146> 1208 TX=T:T=T+1:IF T>T2 THEN T=Ti <191> 

449 E$="FLOPPY NICHT EINGESCHALTET":GOTO 1 122@ D=ABS(T-TX)/18@:REM FUER TRACKTRANSPO 
348 <187> RT ZEIT ZUGEBEN <@49> 

458 CLOSE 2:CLOSE 1:PRINT" {CLR,SPACE}BYE. " 1248 GET G$: IF G$<>""THEN 1388 <163> 
: END <076> 12688 GOTO 968 <076> 

468 REM GROB <228> 1548 PRINT" £{CLR,RVSON}ELOFPY - FEHLER {RVOF 

488 T1=18:T2=18:G60T0 568 <159> F„SPACE}! {SDOWN}": PRINT E; " {RVSONF"E$ 

598 REM FEIN <118> "IRVOFF}"zZETZES <228> 

528 PRINT"LESEN VON SPUR ";: INPUT" 1{3LEFT 1368 PRINT:PRINT"BITTE IASTE DRUECKEN. ":PO 
3"; T1 <134> KE 198,8:WAIT 198,1 <082> 

548 PRINT"LESEN BIS SPUR ";: INPUT" 3S{4LEF 1388 CLOSE 2:CLOSE 1:RUN <@43> 
Tach <xB78> 

568 INPUT "HAX. ZEIT FUER 1 BLOCK {3SPACE}O © G64’er 
.5 SEC{ILEFTY"5ZG$:MT=VAL (G$) <104> 

Ba en een Listing 1. Mit diesem Programm können Sie das 1541-Disketten- 

” . ‚ = . . . . . . 
FB-1 <ı27> | laufwerk justieren. Bei der Eingabe bitte Seite 54 beachten 


Spuren weichen voneinander mini- 
mal ab. Es läßt sich also keine mini- 
male Lesezeit einstellen. Wählen 
Sie deshalb den Menüunterpunkt 
Grobeinstellung. Sie werden nach 
der maximal zulässigen Lesezeit ge- 
fragt. Die Voreinstellung beträgt 0,2 
Sekunden. Das ıst die Zeit, die dem 
Laufwerk zur Verfügung steht, um 
einen Sektor zu lesen. Wird diese 
Zeit überschritten, erscheint auf 
dem Bildschirm in roter Farbe eine 
Fehlermeldung. Ist die Lesezeit kür- 
zer als 0,2 Sekunden wird einmaldie 
tatsächliche Zeit, die das Laufwerk 
braucht um einen Sektor zu lesen 
angezeigt. Zum anderen wird diese 
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Lesezeit optisch durch einen quer- 
liegenden Balken verdeutlicht. 
Versuchen Sie durch Verstellung 
des Schrittmotors diese Lesezeit auf 
ein Minimum zu Justieren. Ist das ge- 
schehen, sind die Einstellschrauben 
leicht anzuziehen, so daß sich der 
Motor nicht mehr von selbst verstel- 
len kann. Sie werden sehen, daß 
sich die Lesezeit alleine durch das 
Festschrauben veränderthat. Versu- 
chen Sie jetzt, indem Sie den Vor- 
gang wiederholen, die Lesezeit 
nochmals zu optimieren. Änschlie- 
ßend sind die Einstellschrauben 
fest anzuziehen und das Laufwerk 
wıe oben beschrieben, nur in umge- 


kehrter Reihenfolge, zusammenzu- 
bauen. 


Verfahren 2 
(Hardwarelösung) 


Da der C 64 wie jeder andere 
Computer auch, ein Gerät ist, das 
Daten digital verarbeitet, lassen sich 
analoge Einstellvorgänge zwar hin- 
reichend genau, aber nicht exakt 
durchführen. Aus diesem Grund ha- 
ben wir eine »Hardwarelösung« ent- 
wickelt, mit der jeder, der den 
Umgang mit einem Oszilloskop be- 
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IC-Pin 8 


Schreib-/ 
Lesekopf 


Bild 1. Hier finden Sie die wichtigsten Punkte zur Einstellung des Diskettenlaufwerks mit 


einem Oszilloskop 


herrscht, das 1541l-Diskettenlauf- 
werk absolut exakt einstellen kann. 
Voraussetzung ıst natürlich auch 
wieder eine Diskette, die mit einem 
Disketten-Laufwerk beschrieben 
wurde, das exakt eingestellt war. 
Die Vorgehensweise ist die gleiche 


wie beim Verfahren ], mit dem Un- 
terschied, daß nach dem Einschal- 
ten aller Geräte und nach dem Lö- 
sen der Einstellschrauben folgende 
Zeilen anstelle des Programms ein- 
gegeben werden müssen: 


10 OPEN 2,8,2” #": OPEN 15,8,15 
GIER ONLINE 


C 64 





20 PRINT # 15’U120180”:GOTO 20 
Die Aufgabe dieses kleinen Pro- 
gramms, dasmitRUN gestartet wird, 
ist das permanente Lesen des Sek- 
tors 0 auf Spur 18. Diese Spur und 
dieser Sektor sind mit Absicht so ge- 
wählt worden, da der Abstand nach 
Spur l und Spur 35 der gleiche ist. 
Stellen Sie nun die YAblenkung des 
Oszilloskops auf 1D mV/cm und die X- 
Ablenkung auf 1 mS. Verbinden Sie 
den Tastkopf, der bei den angege- 
benen Einstellwerten ein Tastver- 
hältnis von 40 haben muß, mitdemin 
Bild 1 markierten IC-Pin 8. Das Oszil- 
logramm zeigt ein »hochfrequentes« 
Signal, das bei exakter Justierung ei- 
nen Spannungspegel von etwa 350 
mV. haben sollte. Dieser Span- 
nungspegel ist aber nur ein Änhalts- 
punkt und hängt in erster Linie vom 
Alter der Diskettenaufnahme ab. 
Verdrehen Sie den -Schrittmotor so 
lange, bis der Spannungspegel eın 
Maximum erreicht. Auch ist bei ei- 
nem dejustiertem Schreib-Lesekopf 
dem hochfreauenten Signal ein nie- 
derfrequentes Signal überlagert, 
das an der zyklischen Veränderung 
der Amplitude zu erkennen ist. Die- 
ses überlagerte Sıgnal verschwin- 
det bei exakt eingestelltem 

Schreib-Lesekopf. 
(M. Kastermeier/ah) 





deren Datenrecorder zu justie- 

ren, gibt es grundsätzlich zwei 
Möglichkeiten. Eine kleine elektro- 
nische Schaltung, mit der sich unab- 
hängig vom Computer die Tonkopf- 
stellung an jede Datenkassette an- 
passen läßt und ein Programm, das 
inirgendeiner Form die Tonkopfstel- 
lung grafisch auf dem Monitor des 
Computers darstellt. Ein solches 
Programm ist aber unbrauchbar, 
egal wie gutoder schlechtes ist. Der 
Grund dafür ist ganz einfach der, 
daß sich nach erfolgter Justage Pro- 
gramme, die zuvor auf anderen Kas- 
setten gespeichert wurden, nicht 
mehr laden lassen; unter anderem 
auch das Justageprogramm selbst. 
sollen solche Programme geladen 
werden, müßte das Justagepro- 
gramm noch einmal abgetippt wer- 
den. 

Um das zu vermeiden, stellen wir 
Ihnen eine Schaltung vor, mit der 
das Einstellen extrem einfach wird. 

Damit die Schaltung verständlich 
wird, zuerst ein paar Worte zur Data- 
setten-Elektronik. 

Sıe besteht aus zwei Hauptgrup- 
pen, einem zweistufigen Verstärker, 
der die Aufgabe hat, das analoge Si- 
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) m die Datasette oder einen an- 


Die Datasette streikt 


nie wieder 





Einer der häufigsten Fehler, der bei der Datasette 
auftritt, ist ein verstellter Tonkopf. Dieser Fehler 
macht sich besonders dann bemerkbar, wenn mit 
Turbo Tape oder ähnlichen Programmen gearbeitet 
wird. Mit der hier beschriebenen Schaltung läßt sich 
extrem einfach, ohne jegliches Programm, der Ton- 
kopf an jede Datenkassette anpassen. 


gnal, das vom Tonkopf kommt, zu 
verstärken. Analog deshalb, weil 
sich digitale Signale nicht auf Band 
speichern lassen. Selbst wenn ein 
solches Signal am Tonkopf anliegt, 
wird es nicht als solches auf das 
Band geschrieben, sondern in Form 
einer Sinusschwingung. Beim La- 
den muß diese Sinusschwingung 
wieder in eine Form gebracht wer- 


den, die der Computer versteht. Al- 
so Rechtecksignal. Dies geschieht in 
der zweiten Hauptstufe, mit Hilfe ei- 
nes Schmitt-Triggers. Am Ausgang 
des Schmitt-Triggers liegt das Signal 
in Form einer Rechteckschwingung 
vor, die entweder einen Spannungs- 
pegel von 0 oder 5 Volt hat. Dieses 
Sıgnal eignet sich nicht zur Einstel- 
lung des Tonkopfes, weil die Ampli- 
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tude des Signals, unabhängig von 
der Tonkopfstellung, immer kon- 
stant zwischen O und 5 Volt hin- und 
herspringt. 

Die Messung mit einem Oszillo- 
skop ergab aber, daß, abhängig von 
der Tonkopfstellung, die Amplitude 
der analogen Spannung schwanke. 
Ist der Tonkopf optimal eingestellt, 
geht die Amplitude der Spannung 
gegen ein Maximum. Ist der Ton- 
kopf dejustiert, weicht dıe Amplıtu- 
de, abhängig von der Tonkopfstel- 
lung, vom Maximum ab. Man kann 
D = LED es jedoch keinem Datasetten-Besit- 
IC = LF 356 zer zumuten, sich ein Öszilloskop an- 
Tr. = 10kQ zuschaffen, nur um die Datasette zu 
justieren. 


Bild 1. Schaltung des Komperators 


Bastelanleitung 


Die vorliegende Bastelanleitung, 
deren Bauteile zu einem Preis von 
5 V Betriebsspannung unter fünf Mark zu haben sind, eT- 
u setzt in diesem Fall ein Oszilloskop. 

Mit der Schaltung (Bild 1) läßt sich eı- 
ne Spannung, natürlich in gewissen 
sheet Grenzen, auf Maximum abgleichen. 
ee EHERREONE Das Herz ist ein Operationsverstär- 

ker vom Typ LF 356, der als Kompa- 
rator (Schwellwertschalter) betrie- 
ben wird. Außerdem hat dieser 
Operationsverstärker gegenüber 
anderen den Vorteil, daß seine Ein- 
gangsstufe aus einem Feldeffekt- 
transıstor besteht. Der Eingangswi- 
derstand geht dadurch gegen un- 
endlich und belastet das zu messen- 
de Sıgnal in keinster Weise. Mit dem 
Trimmpotentiometer läßt sich eine 
Sschwellspannung (Bild 2) einstellen, 
die laufend mit der analogen Sinus- 
schwingung verglichen wird. 

Ist der Momentanwert der Sinus- 
schwingungkleiner als die vorgege- 
bene Schwellspannung, führt der 
Ausgang des LF 356 O Volt. Wird der 
Momentanwert größer, springt der 
Bild 2. Die Helligkeit der Leuchtdiode ist abhängig von der Zeitspanne, die der Kompera-| Ausgang des LF 356 auf +5 Volt und 
torausgang auf +5V liegt. regt dadurch eine Leuchtdiode an. 
Wird die Schwellspannung in den 
Scheitelpunkt der Sinusschwingung 
gelegt (gestrichelte Linie in Bild 2), 
geht die Zeitspanne, in der der ÄAus- 
gang des Komperators auf 5 Volt 
liegt, gegen ein Minimum. Daraus 
folgt, daß die Helligkeit der Leucht- 
diode abnımmt, je näher die 
schwellspannung an den Scheitel- 
wert der Sinusschwingung rückt. 
Wird dagegen die Amplitude des 
Signals, also der Sinusschwingung, 
vergrößert, wird die Helligkeit der 
Leuchtdiode wieder größer. Denn 
die Zeitspanne, in der der Ausgang 
Bild 4. Bestückungsplan (lötseite) des Komparators auf 5 Volt liegt, 
wird größer. Dieses ist vom Prinzip 
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Bild 3. Layout im Maßstab 1:1 (Lötseite) 





Floppy und Datasette C 64 


her der ganze Abgleichvorgang. Mit 
dem Trimmpotentiometer wird auf 
minimale Helligkeit und mit der 
Tonkopfeinstellschraube auf maxi- 
male Helligkeit abgeglichen. 

Aufgebaut wird die Schaltung auf 
einer kleinen Lochrasterplatine. 
Diejenigen, die sich eine Platine ät- 
zen wollen, finden das Layout ım 
Verhältnis 1:1 in Bild 3. Wie die ein- 
zelnen Pins der Bauelemente nit- 
einander verbunden werden, zeigt 
Bild 4. Achten Sie beim Zusammen- 
bau auf die richtige Polarität der 
Leuchtdiode (Bild 5). 

Ist die Schaltung zusammengelö- 
tet, muß sie noch ım Datasettenge- 
häuse untergebracht werden. Off- 
nen Sie dazu die Datasette und boh- 
ren an einer geeigneten Stelle ein 
Loch in das Gehäuseoberteil, so daß 
die Leuchtdiode gerade in dieses 
Loch paßt. 

Verbinden Sıe die Anschlüsse» +« 
und »—« (Bild 4) mit den Motor- 
anschlußklemmen. Dabei ist eben- 
falls auf dıe Polarität zu achten. Im 
allgemeinen ist sie auf dem Motor 
gekennzeichnet. Der ın Bild 4 ge- 
kennzeichnete Punkt »E« (für Ein- 
gang) muß über ein abgeschirmtes 
Kabel mit einem der beiden Löt- 
punkte auf der Datasettenplatine 
(Bild 6) verbunden werden. Die Ab- 
schirmung ist an den mit »—« ge- 
kennzeichneten Punkt (Bild 4) zu lö- 
ten. 

Bei den beiden Lötpunkten han- 
deltessich um den Ausgang des er- 
sten beziehungsweise zweiten Ana- 
logverstärkers einer Commodore- 
Datasette. 

Geräte anderer Hersteller sind 
zum Teil anders aufgebaut. Es kann 
vorkommen, daß die beiden in Bild 
6 gekennzeichneten Analogverstär- 
ker in einem Gehäuse unterge- 
bracht sind. In diesem Fall ist der 
Punkt»E«mitdemPin 8dieses ICs zu 
verbinden. 


Einfaches Einstellen 


Bevor die Datasette zusammenge- 
baut wird, ist die Schaltung an die 
Datasetten-Elektronik anzupassen. 
schalten Sie dazu den C 64 ein, le- 
gen eine Programm-Kassette in die 
Datasette und drücken die PLAY- 
Taste. 

Nach der direkten Eingabe POKE 
54272+24,15 drehen Sie den Laut- 
stärkeregler Ihres Monitors auf Ma- 
ximum und warten bis die Übertra- 


gung des Programm- oder Datenco- 


des im Lautsprecher zu hören ist. 
Nun muß in einem wechselseitigen 
Einstellvorgang die Helligkeit der 
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Bild 5. Beim Einlöten der Leuchtdiode unbedingt auf die Polarität achten. 
Anode=A=längeres Beinchen oder runde Seite. 
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Bild 6. An einem der gekennzeichneten Punkte ist der Punkt »E« (Bild 4) zu löten. 


Leuchtdiode am Trimmpotentiome- 
ter auf Minimum und an der Ton- 
kopfeinstellschraube auf Maximum 
abgeglichen werden. Bei 
Commodore-Datasetten befindet 
sich die Tonkopfeinstellschraube 
(Kreuzschlitz) bei gedrückter PLAY- 
Taste unter einem etwa 5 mm gro- 
ßen Loch aufdem Gehäuseoberteil. 
Soll eine Datasette justiert werden, 
muß der Kassettendeckel abgebaut 
werden. Die Tonkopfschraube ist 
nun eine der beiden Tonkopfbefe- 
stigungsschrauben und zwar die, an 
der sich eine Spiralfeder befindet. 
Doch nun zum Abgleichvorgang. 
Dazu gehen Sie bitte folgenderma- 
ßen vor: 

1. Am Trimmpotentiometer drehen, 
bis die Leuchtdiode schwach 
flackert. Dadurch wird die Schwell- 
oder Schaltspannung in den Schei- 
telpunkt der Sinusschwingung ge- 
legt. 

2. An der Tonkopfeinstellschraube 
drehen, bis die Helligkeit der 
Leuchtdiode ein Maximum erreicht 





hat. Dadurch wie die Amplitude des 
Signals, das vom Tonkopf kommt, auf 
Maxımum abgeglichen. 

Der letzte Punkt ist nur dann erfor- 
derlich, wenn die Datasette nicht op- 
timal eingestellt war, beziehungs- 
weise eine Kassette benutzt wird, 
die mit einer anderen Datasette be- 
schrieben wurde. In diesem Fall 
muß der Einstellvorgang solange 
wiederholt werden, bis eine Einstel- 
lung erreicht ist, bei der die Leucht- 
diode erlischt sobald der 'Tonkopf 
minimal verstellt wird. Bauen Sie 
nun die Datasette wieder zusam- 
men. Schalten Sie voher aber den 
C 64 aus. 

Wollen Sie jetzt ein Programm la- 
den, das mit einem dejustiertem 
Tonkopf aufgenommen wurde, 
brauchen Sie nur noch, nachdem 
der C 64 eingeschaltet wurde, die 
Kassette einzulegen, die PLAY-Taste 
zu drücken und so lange an der Ton- 
kopfeinstellschraube drehen, bis 
die Helligkeit der Leuchtdiode ein 
Maximum erreicht hat. (ah) 
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Floppy und Datasette C 64 
Das große Rennen 


Neben der Floppy und der Datasette gibt es noch 
die sogenannten Bandlaufwerke. Das bekannteste 
aus dieser Gruppe schickten wir zu einem 
Geschwindigkeitsvergleich auf die Rennbahn. 


xerei Ist, beweisen die inzwi- 

schen recht zahlreichen Hard- 
und Software-Erweiterungen, die 
die Floppy schneller machen sollen. 
Kein Zweifel, Schnelligkeit ist ge- 
fragt. Lange Wartezeiten beim La- 
den sind out. 

Bei diesen Worten denkt man na- 
türlıch sofort an die »Speicher- 
schnecke« Datasette. Aber nicht je- 
der hat das Geld, ein Floppy-Lauf- 
werk zu kaufen; es muß also ein 
Kompromiß geschlossen werden. 
Die eine Möglichkeit ist, das »T'urbo- 
Tape de Luxe« aus dem S4’er-Son- 
derheft Nummer 5 abzutippen, die 
andere, sich eine Floppy-Alternative 
anzuschaffen. Damit meinen wir 
Bandlaufwerke mit besonderen 
Kassetten. Den bekanntesten Ver- 
treter dieser Klasse, nämlich das 
»Quick-Data-Drive« von NCS, haben 
wir einmal der Datasette, dem 
Turbo-Tape und der Floppy in ei- 
nem Geschwindidgkeitsvergleich ge- 
genübergestellt. 

Testbedingungen: 

Es galt erstens, ein genau 8 KByte 
langes Basic-Programm zu spei- 
chern und wieder zu laden, und 
zweitens, eine sequentielle Datei mit 
2 KByte Länge ebenfalls zu spei- 
chern und wieder zu laden. 

Beim Arbeiten mit dem Quick- 
Data-Drive (ODD) zeigte sich schon 
bald eine deutliche Schwäche: Um 
das Gerät steuern zu können, muß 
ein spezielles »Quick-Operating- 
System« ın den Computer geladen 
werden. Dieses Maschinenpro- 
gramm steht ab $C000 (49152) im 
Speicher. Da dieser Speicherbe- 
reich aber von vielen Basic-Pro- 
grammen als Raum für Maschinen- 
unterroutinen benutzt wird, kann es 
zu umfangreichen Problemen kom- 
men. 

Ein weiteres Problem: Da das 
ODD spezielle Endloskassetten ver- 
wendet, muß es bei jedem Laden 
das gesamte Band durchspulen, bis 
es die rıchtige Stelle gefunden hat. 
Bei den längsten Bändern (128 KBy- 
te) Kann dies durchauszu deutlichen 
Wartezeiten führen. 

In der ersten Disziplin (Basic- 
Programme) zeigte sıch schon, daß 
die Datasette, mit TurboTape be- 
schleunigt, durchaus der Floppy die 
Stirn bieten kann (siehe Tabelle). 

Die zweite Überraschung bot das 
ODD: Es war fast doppelt so schnell 
wie das Diskettenlaufwerk! Beim 
Programme-Laden benötigte die 
Floppy 1541 sogar mehr als dreimal 
soviel Zeit. 

Als zweite Disziplin waren se- 
quentielle Dateien angesagt. 


D aß Geschwindigkeit keine He- 
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Quick-Data-Drive. Eine sinnvolle Anschaffung? 


Auch dieser Durchgang verlief 
nicht ohne Schwierigkeiten: Turbo- 
Tape unterstützt nämlich die se- 
quentielle Dateiverwaltung nicht. 

Auch das ODD zeigt sich hier von 
seiner schwachen Seite. Die Floppy 
ist bei der Arbeit mit sequentiellen 
Dateien fast doppelt so schnell wıe 
das Bandlaufwerk. 

Als Fazit unseres kleinen Ver- 
gleichstests kann man sagen, daß 
das Quick-Data-Drive nur für den 
reinen Basic-Programmierer geeig- 
net ist. Die Vorteile beschränken 
sich auf hohe Übertragungsge- 
schwindigkeit und einen relativ 


Quick-Data- 
Drive 
8 KByte Basic-Programm 6 sec. 
laden 
8 KByte Basic-Programm 
speichern 


14 sec. 


2 KByte sequentielle 37 sec. 


Daten laden 


2 KByte sequentielle 54 sec. 


Daten speichern 


niedrigen Änschaffungspreis von 
198 Mark. Die gravierendsten Nach- 
teile sind, daß es erstens kaum ferti- 
ge Software für dieses Laufwerk zu 
kaufen gibt und zweitens wegen der 
sehr ungünstig gewählten Speicher- 
belegung praktisch keine kommer- 
zıellen Programme mit dem QODD 
lauffähig sind. Auch sind die Kasset- 
ten mit Preisen zwischen 7,80 Mark 
für das 16-KByte-Band und 10,80 
Mark für das 128-KByte-Band nicht 
gerade billig. (tr) 


Info: Quick-Data-Drive, Nettetaler Computer Shop (NCS), 
Steylerstr. 22, 4054 Nettetal 2, Tel. 02157/1616, Preis: 198 
Mark 


Turbo-Tape Datasette 


de luxe 
23 sec. 


1541-Floppy 


2:52 min. 20 sec. 


26 sec. 2:54 min. 25 sec. 


1:54 min. 29 sec. 


1:56 min. 38 sec. 


Tabelle. Die vier Kandidaten im Geschwindigkeitsvergleich. 





E ;£ ar ee. 


64er-online.net 


Floppy und Datasette 


Gut gekauft 
ist halb 


gespeichert 


Die Diskette ist das 
wichtigste Speichermedi- 
um für Computerbesitzer. 

Unsere Marktübersicht 
hilft Ihnen, sich im »Dis- 
kettendschungel« zu- 
rechtzufinden. 


D: Disketten-Käufer wird die 


EPSON zum Thema Drucker. 


Mit der neuen LX-Serie 
ohne am falschen Ende 











Bedeutung des Satzes »Qual 

der Wahl« recht bald bewußt. 
Disketten gibt esin den unterschied- 
lichsten Größen, und fast in jeder 
Farbe. Für den Commodore 64-Be- 
sitzer reduziertsich das Angebot auf 
54,-Zoll-Disketten. Die in diesem For- 
mat angebotenen Disketten sınd al- 
lerdings nıcht alle gleich. Sucht man 
die richtige Diskette, so ist es am be- 
sten einen Blick in das Laufwerk zu 
werfen. Das 154l-Laufwerk besitzt 
nur einen Schreib/Lesekopf. Des- 
halb werden die Disketten auch nur 
auf einer Seite beschrieben. Unter 
dieser Voraussetzung eignen sich 
alle Disketten mit der Bezeichnung 
»99« für Single Sided, die nur auf ei- 
ner Seite geprüft sind. Disketten mit 
der Bezeichnung »DS« für Double Si- 
ded sınd Garant für fehlerfreies Ar- 
beiten auf beiden Seiten. Während 
SS-Disketten immer nur eine 
Schreibschutzkerbe besitzen, hat 
man bei DS dıe Möglichkeit zwi- 
schen Disketten mit einer oder zwei 
Kerben zu wählen. Natürlich kann 
man Disketten auch selbst mit einer 
zweiten Kerbe versehen, um dann 
auf die Rückseite zu schreiben — für 
Sicherheitskopien ein preiswerter 
Trıck. Für viel benutzte Disketten | 
eignet sich dies allerdings nicht, da 
der dem Schreib-/Lesekopf gegen- | 
überliegende Andruckfilz immer | 
über eine mit Daten beschriebene | | 
Seite schleift. Für die Güte einer Dis- | | 





kette gibt es weitere Kennbuchsta- 
ben. Die Buchstaben »SD« oder »1D« 
für Single Density (einfache Dichte) 
stehen meistens auf den etwas billi- | 
geren Disketten. Sie geben Auf- | | | 
schluß über die Dichte der Magneti- | | | 

sierungspartikelin der Diskettenbe- | | | 
schichtung. Finden Sie beispiels- | | | 
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Floppy und Datasette C 64/NC 20 


weise die Bezeichnung »DD« oder 
»2D« auf einer Diskette (Double Den- 
sity = doppelte Dichte), besteht 
theoretisch die Möglichkeit, doppelt 
so viele Daten auf einer Diskette SI- 
cher abzulegen, als auf einer SD- 
Diskette. Für das 1541-Laufwerk ge- 
nügt allerdings einfache Dichte. 
Nicht vernachlässigen dürfen Sıe 
den Vermerk »Mit Verstärkungs- 
ring« (With Hub Ring) auf der Disket- 
tenschachtel. Das heißt, daß um das 
Führungsloch der Diskette ein zwei- 
ter, verstärkend wirkender Ring ge- 
klebt ist. Da bei dem 1541-Laufwerk 
ein konischer Plastikring die Schei- 
be recht unsanft zentriert, ist es 
empfehlenswert, Disketten mit Ver- 
stärkungsring zu kaufen. 

Dies alles sind Beurteilungskrite- 
rien, die Sie, ohne die Disketten- 
schachtel zu öffnen, feststellen kön- 


nen. Anders istesaber mitden Qua- 
litıiätsmerkmalen der Diskettenhül- 
le, der OÖberflächenstruktur der 
Magnetisierungsschicht und der 
Güte des Schutzvließes in der Dis- 
kette. Das ist für Sie ın der Regel 
nicht so leicht überprüfbar. Die ein- 
zıge Vergleichsmöglichkeit bieten 
die Datenblätter zu den einzelnen 
Disketten. Nur eines kann man hier 
mit Sicherheit sagen: Eine Spitzen- 
diskette »schnurrt« leise vor sıch hin 
ohne dabei die Tonlage nach oben 
oder unten zu verändern. Dies wäre 
nämlich ein Anzeichen dafür, daß 
sich die Diskette nicht einwandfrei 
in ihrem »Mantel« drehen kann. Das 
ist wichtig, weil es bei schwergängı- 
gen Disketten schnell zu Lesefeh- 
lern kommen kann. 

Ein weiteres wichtiges Kriterium 
ist der Preis. Disketten werden im 


allgemeinen in 2er- oder in Il0er- 
Packs angeboten. Hier lohnt es sıch 
die Preise zu vergleichen und auf 
Sonderangebote zu achten. Beim 
Kauf größerer Mengen ist eın Preis- 
nachlaß möglich. Um auf Stückzah- 
len dieser Größenordnung zu kom- 
men, wendet man sıch am besten an 
Clubs. 

Wenn Sie nun alle diese Kriterien 
zu Ihrer Zufriedenheit abhaken 
konnten, werfen Sie noch einen 
Blick auf die Verpackung. 

Um Ihnen die Entscheidung zu er- 
leichten, sind ın der folgenden 
Marktübersicht die wichtigsten Ar- 
gumente aufgezählt. Die Liste er- 
hebt keinen Anspruch auf Vollstän- 
digkeit. Alle Daten beruhen auf Her- 
stellerangaben. 


(aw/og) 





Marktübersicht 5%, ” -Disketten 





Döbbelin& 

Boeder 
Disky 1 
Disky ID 
Disky 2D 
Disky 1D96 
Disky 2D96 
De 
two eye 
Disk top 


Disky HD2 
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C 64/VC 20 Floppy und Datasette 




































Maxell Perfectdata 
MD1 s SS/SD 125 1 a a 7,50 International 
MDI-D s SS/DD 250 1 a a 7,85 152D s SS/DD 500 2 a a 2,90 
MD2-D S DS/DD 500 1 a a 11,70 252D S DS/DD 500 2 a a 3,50 
MDI-DD s SS/DD 500 1 a a 11,60 152D Ss SS/HD 1000 2 a a 4— 
MD2-DD s DS/DD 500 1 a a 15,35 252D s 2 a a 
MHI-10 s SS/SD 250 1 a a 7,50 
MHI-I16 s SS/SD 250 1 a a 217,50 
MR2-10D s DS/DD 500 1 a a 11,50 
MH2-16D h DS/DD 500 1 a a 11,50 
MD2-256HD s DS/HD 1000 1 a a 18— 
MD2-HD s DS/HD 1600 1 a a 20,60 








Memorex 


32035151  s SS/SD 125 1 a K.A. 
32035251 h Ss/DD 20 1 a K.A. 
32035A3l 5 Ss/[DD 20 1 a K.A. 
3203-5B51 s SS/DD 250 1 a K.A. 
320520 h SID 230 I a K.A. 
32035All s Ss/IDD 20 1 a k.A. 
3203-5Bll s SIDD 20 1 a K.A. 
32035611 DS/DD 50 1 a k.A. 
3203-5A6l s D/DD 50 1 a K.A. 
3203-5862  s DS/DD 50 1 a K.A. 
3203520 h DS/DD 50 1 a kA. 
32035A2l s DS/DD 50 1 a kA. 
32035B2l s DS/DD 50 1 a KA. 
32035410  h sSs/DD 50 1 a K.A. 
3203:5C1l s Ss; DD 50 1 a KA. 
3203-5D11 s SS/DD 500 1 a K.A. 
3203520  h ssssD 100 1 a k.A. 
32035021 s DS/HD 1000 1 a K.A. 
32035D2l s DS/HD 100 1 a Ge 
32035660 h DS/HD 1600 1 a KR: 





Marcom 



























Elephant h SS/DD 250 1 c b 55,— 

EMS2 

Elephant E SS/DD 250 1 c bp 55,— 

EMS3 

Elephant Ss SS/DD 250 1 c b 55— 

EMSA4 

Elephant h DS/DD 500 l c b 20, 

EMS5 

Elephant 5 DS/DD 500 ] c 570 b b 

EMS 6 

Elephant S DS/DD 500 1 c 5°.270=: Multilife Ss SS/DD 250 1 b b 35,— 
EMS7Z 2DIS 

Elephant h SS/DD 500 l c b3.78: Multilife s DS/SD 250 1 b b 39,— 
EMS8 1D2S 

Elephant s SS/DD 500 l c b 75,— Muiltilife s DS/SD 250 l b b 49,— 
EMS9 1D2S 

Elephant h DSS/HD 1000 l c b 85,— Wende- 

EMS 10 disketten 

Elephant s DS/HD 1000 1 c b 85,— Multilife s DS/DD 500 6 b b 69,— 








2D25 


Wabash 
DataTech 

Mil 

MI3 

M14 

MI6 

MIB 
Xidex 

5012-1000 


EMS 11 





Panasonic 


EBFMDID s SS/DD 164 l b a 4,80 9112-1000 
EBEMD2D s DS/DD 328 l b a 215 5212-1000 
EBF MD2DD b a 10,20 5022-1000 


5122-1000 
5222-1000 
5012-2000 
5122-2000 
5212-2000 
5022-2000 
5122-2000 
5222-2000 
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EPROM-Irans — 
Die Super-Erweiterung 





Der ROM-Speicher des C 64 ließ sich bislang nur mit 
Steckplatinen im Expansion-Port vergrößern. 
Mit einem raffinierten Trick geht es auch intern. 





2 1 = >\t N 
7 Di “4 N a 
En MI ee Dr a A 
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Bild 6. So wird EPROM-Trans in den C 64 eingebaut 


en hat es nicht schon geär- 
We daß die Grundversion 

des C 64 kein Monitorpro- 
gramm aufweist, dasnach dem Ein- 
schalten des Computers sofort zur 
Verfügung steht? Deshalb wurde ei- 
ne Möglıchkeit gesucht (und gefun- 
den), mit der man Maschinenpro- 
gramme von einem festinstalliertem 
EPROM in den Bereich $C000 bis 
SCFFF transformieren kann, ohne 
für das EPROM vorhandenen Spei- 
cherplatz ın Anspruch zu nehmen. 

Um diese Schaltung zu realisie- 
ren, wurde bei den C 64-Entwick- 
lern einiges abgeguckt. Es soll hier 
nicht die Funktionsweise des C 64 
im Detail erläutert werden (das wür- 
de zu weit führen), doch läßt es sich 
für das Verständnis dieser Schal- 
tung nicht vermeiden, auf den Spei- 
cherbereich $A000 bis $BFFF (hier 
| das Basıc-ROM) näher einzuge- 

en. 

Wird dieser Bereich angespro- 
chen, so wird das Basic-ROÖM über 
das sogenannte PLA-Chip (Pro- 
gramable-Loqic-Array), auch Adreß- 
raummanager genannt, unter be- 


42 INap 





stimmten Voraussetzungen (zum Bei- 
spiel Lesen) aktiviert, das heißt der 
CE (Chip-Enable)-Anschluß auf 
Low-Potential gelegt. Drückt man 
zum Beispiel »RETURN«, so wird zur 
Adresse $A560 gesprungen. Diese 
liegt im Speicherbereich, in dem 
das Basic-ROM liegt. Dieses ROM 
ıst folglich aktiviert, und das dort ste- 
hende Maschinenprogramm (Ein- 
gabe einer Zeile) wird abgearbeı- 
tet. 

Wie aus Bild 1 ersichtlich, wurde 
dieser Bereich ($A000 bis $BFFF) 
benutzt. Uber diesem ROM-Bereich 
liegt zum einen das »EPROM-Trans« 
($A000 bis $AFFF) und zum anderen 
die EPROMs 1 bis 3 ($B000 bis 
$BFFF). In letzteren steht jeweils ein 
beliebiges Programm (bis 4 KByte), 
welches in den Bereich $C000 bis 
$CFFF transformiert werden soll. 
Ich habe zum Beispiel in EPROM 1 
den »SMON« und in EPROM 2 »Fast 
Tape« abgelegt, EPROM 3 ıst noch 
unbenutzt. Das Maschinenpro- 
gramm ın EPROM-Trans (siehe Li- 
sting) soll den Inhalt des jeweils se- 
lektierten EPROMs | bis 3 von dem 


C 64 


Bereich $B000 bis $BFFF in den Be- 
reich $C000 bis $CFFF transformie- 
ren. 

Wie kann dies jedoch funktionie- 
ren, wenn in diesem Bereich wie 
oben erwähnt, beim Lesen immer 
das Basic-ROM aktiviert ist? Für die 
Speichertransformation wird der In- 
halt des Basic-ROMs nicht benötigt. 
Drückt man nun einen der drei Ta- 
ster (Bild 2), wird die CE-Leitung 
des Basic-ROMs auf die Zusatz- 
schaltung umgeleitet. Ist folglich ein 
Taster gedrückt, dann ist das Basic- 
ROM nicht mehr ansprechbar; kein 
Taster gedrückt entspricht dem 
Normalzustand des Computers. 

Wie aus dem Listing ersichtlich, 
liegt bei der Adresse $0560 (& 
$A560) des Maschinenprogramms 
beim EPROM-Trans ein Sprungbe- 
fehl zur Adresse $A000, wo dann die 
Speichertransformation startet und 
miteinem Sprungbefehl nach $C000 
endet. Will man diese Speicher- 
transformation starten, muß der 
Computer zur Adresse $A560 oder 
SA000 springen. Wie oben schon er- 
wähnt, wird die Adresse $A560 auto- 
matisch beim Drücken der »RE- 
TURN«Taste angesprungen. Wird 
zum Beispiel EPROM 1 durch Betäti- 
gen von Taster | selektiert und dann 
»RETURN« gedrückt, startet das Ma- 
schinenprogramm in EPROM-Trans. 
Nun wird mit Adreßbit Al2 zwischen 
den Bereichen $Axxx und $Bxxx 
hin- und hergeschaltet und so der 
komplette Inhalt von EPROM 1 nach 
$C000 bis $CFFF kopiert. Am Ende 
der Transformation wırd das Pro- 
gramm durch den JMP-Befehl ge- 
startet, so daß sich zum Beispiel der 
SMON gleich mit seiner Registeran- 
zeige meldet. Nach Loslassen des 
Tasters steht auch das Basic-ROM 
wieder zur Verfügung. 

Ein eventuell vorhandenes Basiıc- 
Programm wird während der Spei- 
chertransformation selbstverständ- 
lıch nıcht beschädigt. Anderungen 
sind nur im Bereich $C000 bis 
SCFFF zu registrieren. Die Transfor- 
mation weist keine Zeitprobleme 
auf, wenn man »RETURN« betätigt 
(£ Start der'Iransformation), meldet 
sich auch gleich der SMON (um 
beim Beispiel zu bleiben). 

In EPROM | bis 3 wird das Ma- 
schinenprogramm so abgelegt, wie 
es auch in $C000 bis $CFFF stehen 
würde, da ja $BO00 nach $C000, 
$BO01 nach $C001 und $BFFF nach 
SCFFF transformiert wird. RR 

In Bild 2 ıst die Steuerung der CE- 
Eingänge der einzelnen EPROMs 
und des Basıc-ROMs dargestellt. 

Das IC 74LS139 besteht aus zwei 1 
auf 4 Demultiplexer DMl und DM2. 
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Je nach Codierung der Eingangs- 
adresse (AO und Al) wırd der Ein- 
gang E auf den entsprechenden 
Ausgang DO bis D3 gelegt (Tabelle 
l), ansonsten haben die Ausgänge 
High-Potential. 


Realisierung der Hardware 


Mit DMI erfolgt die eigentliche 
selektierung der EPROMSs. Es be- 
stehen vier Möglichkeiten: Basic- 
ROM und EPROM 1 bis 3. Der 
Adreßcode ist abhängig von den 
Schaltzuständen der Taster Tl bis 
T3. Aktiviert werden alle EPROMs 
mit »Active Low« (Low-Potential). 
BASIC ist die Leitung, die normaler- 
weise das Basıc-ROM aktiviert, also 
dann Low-Pegel hat, wenn im Be- 
reich $A000bis $BFFF gelesen wird. 
Dieses Signal ıst an die Eingänge E 
der Demultiplexer DMIl und DM2 
geführt. Liegt BASIC auf, kann kein 
Baustein aktiviert werden, denn die 
Ausgänge DO bis D3 von DMI und 


Taster DMI 
AO Al Basic Al2 ROM Trans 


kein Taster 0 0 


gedrückt da ER 


Taster Tl 


Taster T2 
gedrückt 


Taster T3 
gedrückt 


0 & LOW-Potential / 1 & HIGH-Potential 


0 
0 0 
10 
gedrückt ti 
0: I 
8: 3 
1 1 
1 1 


0 
l 
l 
l 
l 
l 
l 


Tabelle 1. Codierung des Demultiplexers (H=High) 


DM2 sind high oder entsprechend 
dem Pegel an E (hier dann auch 
high). Am CE-Eingang vom Basic- 
ROM steht folglich ein High-Pegel, 
entsprechendes gilt für EPROM- 
Trans. Die Ausgänge D1 bis D3 von 
DMI werden invertiert, so daß an 
den betreffenden Eingängen der 
NAND-Gatter Low-Potential liegt. 
Bekanntlich ist aber der Ausgang eı- 
nes NAND-Gatters nur dann low, 
wenn beide Eingänge high sind. 
Folglich werden EPROM 1 bis 3 
nicht aktiviert. Kommen wir jetztzum 
interessanteren Teil: Basıc für LOW. 
Als erstes wollen wir prüfen, ob der 
Computer »normal« arbeitet, wenn 
keine Taste gedrückt ıst: 

a) keine Taste gedrückt: 

Wenn BASIC low ist, muß in die- 
sem Fall das Basic-ROM aktiviert 
werden. Durch die Tasterstellungen 
liegt an den Eingängen AO, Al von 
DMI Low-Potential. Dies bedeutet, 
die Information an E (BASIC = low) 
wird zum Ausgang DO (vergleiche 
Tabelle 1) übertragen. Das Basıc- 











Basic-EPROM- EPROM EPROM EPROM 
2 3 


1 
l 


l 1 
l l 
l 1 
0 1 
1 1 
1 0 
1 1 
1 1 


BASIC-ROM 


EPROM 1 


EPROM 2 


EPROM 3 


zu den CE-Eingängen 
der verschiedenen 
EPROMs und dem 
BASIC-ROM 


EPROM-TRANS 





Bild 2. Zusatzschaltung zur Steuerung der verschiedenen EPROMs und dem Basic-ROM 
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ROM wird also aktiviert (unabhän- 
gig von Al2). EPROM 1 bis 3 können 
nicht aktiviert werden, da die Aus- 
gänge DI bis D3 von DMI High-Po- 
tential führen (siehe oben). Aber 
was ist mit EPROM-Trans? Hier 
(DM2) wird das Eingangssignal E 
auf den Ausgang D2 übertragen, 
wenn AO low und Al high ist. Al ıst 
aber abhängig vom CE-Signal des 
Basic-ROMs. Ist dieses aktiviert 
(low), kann EPROM-Trans nicht akti- 
viert werden. Der Computer arbeı- 
tet in diesem Fall also völlig normal. 
b) Taster Tl wırd gedrückt 

Wird Taster Tl gedrückt, liegt an 
AO von DMl über den Pull-upWi- 
derstand (1,5 kOhm) high, Al bleıbt 
über T2 und T3 auf low. Diese 
Adreßcodierung bedeutet, daß die 
Information an E auf den Ausgang 
D1 übertragen wird. Durch den In- 
verter liegt also am NAND-Gatter 
(Pin ]) high. 

Als Adresse an DM2 liegt an Al 
jetzt high, da das Basic-ROM nicht 
aktiviert wird. AO ist abhängig vom 





Bild 1. Speicherorganisation mit Zusatzschaltung 


Adreßbit Al2. Wie erwähnt ıst Al2 
für den Bereich $Axxx low. Die Ein- 
gangsinformation (low) wird auf D2 
gelegt und EPROM-Trans wird aktı- 
viert. An Pin 2 vom NAND-Gatter 
liegt Low-Potential (high von D3 in- 
vertiert), weshalb EPROM | nicht 
aktiviert wird. Wechselt Adreßbit 
Al2 seinen Zustand (von $Axxx — 
$Bxxx) wird Eingang E von DM2 mit 
Ausgang D3 zusammengeschaltet, 
denn A0=0 und Al=l. EPROM- 
Trans wird nicht mehr aktiviert (D2 
— High). An D3 liegt nun aber Low- 
Potential welches über einen Inver- 
ter auf das NAND-Gatter (Pin 2) ge- 
führt wird. An Pin 1 und 2 dieses Gat- 
ters liegt folglich high und am Aus- 
gang liegt Low-Pegel. EPROM | 
wird aktiviert. 
c) Taster T2/T3 wird gedrückt 

Das Prinzip ist das gleiche wie 
eben beschrieben. Es ändert sıch 
nur die Adreßcodierung von DMI. 
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Um ein Kabelgewirr zu vermeiden 
»zapft« man am besten ein ROM ım 
Computer an, das heißt man erstellt 
eine Adapterplatine, auf der sämtli- 
che zusätzliche EPROMs sowie das 
entwendete ROM Platz finden und 
Adreß- und Datenbus parallel ver- 
bunden werden. Diese Platine wird 
dann in den Steckplatz des heraus- 
genommenen ROMs wie ein einzel- 
nes IC gesteckt, wobeı die An- 
schlüsse des ROMs direkt verbun- 


Kernal oder Basic-ROM? 


den sind, während die zusätzlichen 
Anschlüsse der EPROMSs (+, CE, 
OE, ...) extern herausgeführt wer- 
den. Welches ROM man verwendet, 
hängt von den ganz individuellen 
Wünschen ab. Ich habe mich für das 
Kernal entschieden, daich so für ein 
geändertes Betriebssystem gleich 
einen EPROM-Steckplatz mit vorge- 
sehen habe, so daß zum Beispiel 
diejenigen, die eine Betriebssy- 
stem-Erweiterung benutzen, ohne 
Änderungen die Adapterplatine 
nach dem Layout Bild 3 oben ver- 
wenden können. Dieser zusätzliche 
Steckplatz »Kernal neu« (EPROM 
vom Typ 2764) ist 100%ig zum Kernal 
verdrahtet, das heißt man kann nur 
einen der beiden Kernalplätze be- 
setzen. Die folgende Beschreibung 
bezieht sich auf das Entfernen des 
Kernal-ROMs. 

Man erstellt sich zunächst die bei- 
den Platinen nach den Layouts in 
Bild 3. Nachdem die angedeuteten 








Löcher für Bauteile und Draht- 
brücken gebohrt (l mm) sınd, be- 
ginnt das Bestücken, wobei es rat- 
sam Ist, mit den von den Abmessun- 
gen niedrigsten Bauteilen zu begin- 
nen. So ergibt sich folgende Reihen- 
folge: Drahtbrücken, Widerstände, 
Fassungen. Der Adaptersockel wırd 
unter die IC-Fassung des auf dieser 
Platine vorgesehenen Platzes für 
das Kernal festgelötet, da erja quası 
nur eine Verlängerung der Kernal- 
Pins ist. Dies muß so durchgeführt 
werden, daß der Adaptersockel 
möglichst rechtwinklig zur Platine 
steht und in eine 24polige IC-Fas- 
sung paßt. Am einfachsten kann die- 
ses realisiert werden, wenn man 
den Ädaptersockel ın eine 24polige 
Fassung steckt, und dann anlötet 
und ausrichtet. 

Zwischen Zusatzplatine und 
Adapterplatine werden sieben Ver- 
bindungskabel gezogen, wobei die 
zugehörigen Anschlußpunkte den 
Bestückungsplänen Bild 4 zu ent- 
nehmen sind. Auf der Adapterplatı- 
ne kann man hierbei eine Steckver- 
bindung (lOpolig) vorsehen (zum 
Beispiel: Typ MS-25-10, Völkner- 
Elektronik, Postfach 5330, 33 Braun- 
schweig; Preis 3,25 Mark), damit die 
beiden Platinen nicht starr miteinan- 


ee “werden als 


letztes — eventuell erst nach dem 
Einbau — nach Bild 4 unten ange- 
schlossen. Die Qualität der Taster ist 
unbedeutend, da der Faktor des 
Prellens keine Rolle spielt. 


Verwendet man das hier abgebil- 
dete Platinenlayout, so müssen 
EPROM 1 bis 3 vom Typ 2532 seın, 
EPROM-Trans vom Typ 2716. Hier 
sollten wir noch einmal einen Blick 
auf Bild 5 werfen: Bis auf die CE- 
Anschlüsse, die zur Zusatzplatine 
geführt werden, sind die Leitungen 
fest mit den des Kernal-ROMs ver- 
drahtet (also Adreß- und Datenbus). 
Die restlichen epromspezifischen 
Anschlüsse (OE, Vpp, PRG) werden 
je nach Typ für EPROM-Lesen fest 
auf low oder high gelegt. Die Strom- 
versorgung liegt beim Kernal an 
den Pins 12 (Masse) und 24 (Vec= 
SV); Al2 entspricht Pin 21. 


Einbau in den Computer 


Zum Offnen des Computers (vor- 
her sämtliche Peripherie abziehen 
inklusive Stromversorgung, Achtung 
Garantieverlust) müssen die drei 
Schrauben an der vorderen Unter- 
seite gelöst werden. Hinten sind 
Ober- und Unterteil des Gehäuses 
nur zusammengesteckt, so daß 
durch Anheben des Oberteils sich 
beide Gehäusetelle trennen lassen 
(Bild 6). 

Jetzt müssen die beiden Steckver- 
bindungen für Tastatur und Leucht- 
diode gelöst werden, so daß beide 
Gehäuseteile völlig getrennt sind. 

Als nächstes entfernt man das 
Kernal-ROM (Steckplatz U4) und 
steckt dıeses ın den entsprechen- 
den Sockel auf der Adapterplatine 
gemäß dem Bestückungsplan. 





Bild 3. 

Layout der 
Adapterplatine 
(oben); 
Layout der 
Zusatzplatine 
(unten) 


Sollte das ROM fest eingelötet 
sein, so ist dies unter Verwendung 
von Entlötlitze und einer guten Löt- 
station (nicht mit irgendeinem Löt- 
kolben) herauszulöten. An diesem 
freigewordenen Platz wird dann ein 
24poliger IC-Sockel eingesetzt. 


Um die Leitungen BASIC und Ba- 
sic-ROM zu erhalten, ist im Compu- 
ter die Leiterbahn nach Bild 7 aufzu- 
trennen. Hierzu nimmt man einen 
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2532 2532 
EPROM 2 EPROM | 


Masse EPROM3 EPROM2 Vcc EPROMI EPROM 
TRANS 


7415139 


© 2 3,5 mm 


EPROM-TRANS 
EPROM 3 


EPROM | 


Bild 4. Bestückungspläne: Adapterplatine (oben); Zusatzplatine (unten). Die Kerben auf 
den ICs zeigen immer nach unten. Abgebildet ist die jeweilige lötseite der Platinen. 


* chat zum Anschluß de 


Zusatzplatine 






hier 
Leiterbahn 
R37 auftrennen 
— N uasıc- 
Oo ROM 
Kernal Bild T. 
v4 Plan zum 
Trennen der 
Leiterbahn 
23 


kleinen Schraubenzieher und unter- 
bricht die Leiterbahn durch vorsich- 
tıges Kratzen. Die grüne Schutz- 


schicht auf der Leiterbahn wird an 1® FOR 1=32768 TO 32947 <213> 
s = , 28 READ X:POKE I,X: S5=S5+X: NEXT <222> 
beiden Seiten (rechts und links von 3® DATA 162, 0,109, 0,176,157, 0,192,25 
2,208,247,162, 0,189, B,177,157 <180> 
der Unterbrechung) entfernt, so daß «8 DATA_ W.1VS.252.200,247.162, Bid, 
das Kupfer sichtbar wird. Nun wird | vn. im, im, BE u; 
an diesen Stellen jeweils ein flexi- | is "arisrzssmmazar,ıen 6 cia2> 
bles Kabel mit etwas Fingerspitzen- | ” Wie2ı"a,100, B1a3,107, 8190 <ı80 
gefühl angelötet. Die eine Leitung 2 1200.232.208,247,162, 0,189 <058> 
entspricht dann BASIC (vom PLA), "2, 0,109, B.108,157, 0.202.252 ' _<153> 
die andere Basic-ROM (zu CE die- 2es.252.200,247,122, "0,109, 0 <137> 
ses ROMs) und sind als solche be- er, B100.107, BZ <mıs> 
a 4 5 120 DATA 247,162, 9,189, 8,198,157, 8,2 
zeichnet auf der Zusatzplatine zu fin- @6,232,208,247,162, 2,189, @,191  <149> 
den und entsprechend zu verdrah- En a RL EEE U Ehe, 
ne it S aa 140 Ir So 25763 THEN PRINT "DATA-FEHLE 
en an = 3 teckverbin ung 158 POKE 34144 76: POKE 34145,0:POKE 34146, Fee 
a er usatzp atine). 168 PRINT "D.K." nn 


Diejenigen, die anstatt des Kermals 
das Basic-ROM anzapfen 


Listing 2. Basic-Lader des Programms 


Fortsetzung auf Seite 140 
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#00 
B000,X 
C000,X 


A002 
#00 
B100,X 
C100,X 


AOOD 
#00 
B200,X 
C200,X 


A018 
#00 
B300,X 
C300,X 


A023 
#00 
B400,X 
C400,X 


A0U2E 
#00 
B500,X 
C500,X 


A039 
#00 
B600,X 
C600,X 


A044 
#00 
B700,X 
Cc700,X 


AO4F 
#00 
B800,X 
C800,X 


AO5A 
#00 
B900,X 
C900,X 


A065 
#00 
BAO0,X 
CAO0,X 


A070 
#00 
BBOO,X 
CBOO,X 


AO7B 
#00 
BC00,X 
CC00,X 


A086 
#00 
BD00,X 
CD00,X 


A091 
#00 

BEOO,X 
CEO0,X 


AOIC 
#00 
BF00,X 
CF00,X 


AOA7 


Block 


s Sprung: Start 
„A560 4C 00 AO JMP A000 


Listing 1. Speichertranstormation $Bxxx 
nach SCxxx. 
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as Laden von Programmen 
dauert, selbst wenn man 
Hypra-Load verwendet, doch 
immer noch eine geraume Zeit. Viel 
praktischer sind die Ihnen sicher 
schon bekannten EPROMs. Der An- 
schluß von EPROMss stellt beim C 64 
kein allzu großes Problem dar. Am 
Expansion-Port befinden sich alle 
für diesen Zweck wichtigen Adreß-, 
Daten- und Steuerleitungen. Analog 
dazu verfügt auch ein EPROM über 
Adreß-, Daten- und einige Steueran- 
schlüsse. Letztere unterteilen sich in 
Pins für die Stromversorgung (0 V, 
+5 V), Pins zur Programmierung 
und Pins zur letztendlich gewünsch- 
ten Verbindung mit dem Bus-System 
des C 64. Da man nach einer Pro- 
grammierung des EPROMs die An- 
schlüsse für die Programmiersteue- 
rung (PGM) nicht mehr benötigt, 
diese aber ım Betrieb einen defi- 
nierten Zustand haben müssen, wer- 
den beide auf logisch High (+5V) 
gelegt. Der Anschluß »Chip Enable« 
(CE = Chipauswahl) teilt dem EP- 
ROM mit, daß es angesprochen ıst, 
und »Öutput Enable« (OE = Ausga- 
be möglich) fordert das EPROM auf, 
die Daten an den Datenbus zu le- 
gen. Danach stehen die Daten ge- 
nauso zur Verfügung, als ob der 
Computer sie aus dem RAM lesen 
würde. 





Zwei Platinen zur Wahl 


Zum Aufbau der Schaltung ist es 
am besten, eine Platine anzuferti- 
gen, dıe ın den Expansion-Port paßt. 
Dabei haben wir uns für zwei ver- 
schiedene Auführungen, eine mit 8 
KByte für kleinere Programme und 
eine mit 16 KByte Speicherplatz ent- 
schieden. Es können wahlweise 
EPROMs vom Typ 2732 (4KByte) 
oder 27164 (8 KByte), verwendet wer- 
den. Zusätzlich bietet die 16 KByte- 
Platine mehrere Betriebsmodi, die 
im einzelnen noch beschrieben 
werden. Doch zurück zum Anschluß 
der EPROMs an den C 64. Da ein 
EPROM maximal 8 KByte Speicher- 
platz hat und damit sicherlich nicht 
den ganzen Adreßraum des 6510- 
Prozessors ausfüllt, muß der C 64 
den sSpeicherbereich für das 
EPROM festlegen. Für diesen 
Zweck sınd zwei Leitungen vorgese- 
hen: ROML und ROMH. Beide sind 
»aktıv-low«, das heißt sie wirken erst, 
wenn sie vom Zustand »l« in den Zu- 
stand »0« übergehen, beziehungs- 
weise wenn sie ein Potential von 0 
Volt gegenüber Masse haben. Die- 
se Leitungen werden mit den An- 
schlüssen CE und OE (beide eben- 
falls aktiv-low) des EPROMs verbun- 
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den. ROML wählt den Speicherbe- 
reich ab $8000, ROMH den Bereich 
ab $A000: 
658000: ROML er OE 
$A000: ROMH CE 

Jetzt sollte man dem Comiputer 
noch mitteilen, daß er auf die 
EPROMs und nicht, wie gewohnt, 
aufsein internes RAM zugreift, denn 
die Leitungen ROML und ROMH 
können nicht direkt beeinflußt wer- 
den. Erst die Verwendung von zwei 
weiteren Leitungen bringt das ge- 
wünschte Ergebis. Diese Leitungen 
heißen EXROM und GAME. Sobald 
eine dieser Leitungen auf Masse ge- 
legt wird, teiltsie der PLA (Program- 
mable Logic Array = Adreßmana- 
ger) mit, daß die Daten ım Bereich 
$8000, beziehungsweise $A000 vom 
Expansion-Port geholt werden sol- 
len. 

Damit sind die wesentlichen Funk- 
tionen der 8-KByte-Platine beschrie- 
ben. Sie ist so konzipiert, daß sie ein 
EPROM in den Bereich von $8000 
bis $9FFF einblendet. Mit den vier 
Lötbrücken auf der Oberseite der 
Platine kann allerdings auch eine 
andere Speicherauftellung einge- 
stellt werden. Bei Bedarftrennen sıe 
die beiden geschlossenen Löt- 
brücken auf und verbinden die bei- 


SDeichRBERERREREEAO0D Dis 














Bild 1. Schaltbild der 16-KByte-Platine 








EPROMs 


$BFFF für die EPROMs selektiert. 
Dies ist jedoch eine sehr ausgefalle- 
ne Konfiguration, die Sie in der Pra- 
xis wahrscheinlich selten brauchen 
werden. 
Mehrere Betriebsarten 

Bei der 16-KByte-Platine wird zwi- 
schen mehreren Betriebsarten un- 
terschieden. Im einfachsten Fall 
wird das rechte EPROM A (vom 
Expansion-Port gesehen) in den Be- 
reich ab $8000 und das linke in Be- 
reich ab $A000 eingeblendet. Aus 
den einleitenden Betrachtungen 
wissen wir, daß für den Bereich ab 
$8000 EXROM auf »Low« und für 
den Bereich »$A000 GAME auf »low« 
gelegt (mit der Masse Leitung ver- 
bunden) werden müssen. Dies ge- 
schieht mit den Schaltern S4 
(EXROM) beziehungsweise S3 
(GAME). Weiterhin erfolgt über den 
Schalter S5 eine Verbindung von 
ROML mit CE/OE des rechten 
EPROMs und über den Schalter S] 
ein Kontakt zwischen ROMH und 
CE/OE des linken EPROMs. 

Als nächstes soll die Schaltung so 
verändert werden, daß beide 
EPROMs im Bereich ab $8000 ste- 
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hen, besser gesagt, daß sich immer 
nur eines in Betrieb befindet und 
zwischen beiden EPROMs umge- 


C 64 Hardware 
schaltet werden kann. Dazu benötigt 


®& 2) 
im Expansıon-Pori 
man eine kleine Logikschaltung mit 


Es gibt kaum ein Speichermedium, von dem Daten Siem JEilipflop und zwei OR 


so schnell geladen werden können wie von EPROMs. werden ie Eingänge und Kauf +5 
V gelegt und bei jedem Wechsel 


Bauen Sie sich selbst eine Erweiterungsplatine mit von »High« nach »Low« an T (Takt) 
wahlweise 8 oder 16 KByte Speicher! ri en 
nach »I«, »Q« wechselt von »l« nach 


»0«, Man braucht noch eine Leitung, 
pP — die vom Computer aus kontrolliert, 


= =ei016i016 9 Sigioleloip @ 2 beziehungsweise geschaltet wer- 
a © | oO den kann und die mit dem Takt- 
= } > = 
RE .” 
> 
| 1 





Eingang des Flip-Flop verbunden 
wird. Zu diesem Zweck gibt es zwei 
/O-Leitungen im C 64, nämlich 1/01 
und 1/02, denen zwei Register ım 
Computer entsprechen. Diese Regı- 
ster (/0l: $DE00; 1/02: $DF00) 
kann man zum Beispiel mit POKE 
57088,X oder STA $DEO00 anspre- 
chen. Dabeı wechselt ihr Zustand 
kurzzeitig von »high« nach »low« und 
es entsteht gerade das Schaltverhal- 
ten, das man für das Flip-Flop benö- 
tigt. Die Zusammenhänge beim 
Schalten gehen am besten aus einer 
Logiktabelle hervor. Es darf dabei 
immer nur ein EPROM an den Pins 
CE/OE ein Signal »low« bekommen. 


Einschalten (Hardware-Reset) be- 
ziehungsweise Zustand |: 
Q=L,Q=H 

Al Bl Ql A2 B2 Q2 


QO=-L H=ROMLH Q=H H=ROML H 
Q=L L=ROML L Q=H L=ROML H 











Ql=L: EPROM A angewählt 
QO2=H: EPROM B nicht angewählt 

Sobald der Takt-Eingang für kur- 
ze Zeit von »High« auf »Low« geht, ST- 
höht man den anderen Zustand des 
Flip-Flops. 

Umschalten beziehungsweise Zu- 
stand 2: Q=H,Q=L 

Al Bl Ol A2 B2 Q2 

Q=-H H=ROMLH Q=-L H=ROM MH 

QO=H L=ROML H Q=L L=ROML L 


Ql=H: EPROM A nicht angewählt 
QO2=L: EPROM B angewählt 
Die letzte Verwendungsmöglich- 
keit der Platine erlaubt das Ein- und 
Ausschalten von wahlweise einem 
8-KByte-, oder 16-KByte-Bereich. Mit 
dem Schalter X5 wird zunächst 
ROML mitdem rechten EPROM ver- 
bunden ($8000). Für ein 16-KByte- 
Modul wird zusätzlich der Schalter 
Sl geschlossen und damit das linke 
EPROM im Bereich $A000 selek- 
B tiert. Doch wie bereits beschrieben, 
greift der Computer immer noch 


Bild 3. Das 1:1-Platinenlayout der 8-KByte-Platine (Vorder- und Rückseite) nicht auf die EPROMs zu. Darum 
müssen die Leitung EXROM (zusätz- 
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lich GAME bei 16 KByte) mit Masse 
verbunden werden. Setzt man in 
diese Verbindung nun das schon 
verwendete Flip-Flop, so können die 
Leitungen, je nach Zustand, von 1/02 
auf Masse gelegt werden oder 


Der Hexer — Zusatzitastatur für den MSE 
A 


ls Programmierfan stehen Sie 
auch häufig vor dem Problem, 
seitenweise Zahlen eingeben 
zu müssen, zum Beispiel MSE- 
Listings. Meist erfolgen die Anga- 
ben ım Hexadezimalsystem, das die 
Ziffern 0 bis F umfaßt. Deshalb zei- 
gen wir Ihnen, wie man sich einfach 
eine Hex-Tastatur selbst bauen 
kann. 

Der Bau dieser Hex-Tastatur dürf- 
te dem geübten Bastler keine 
Schwierigkeiten bereiten. Dem 
handwerklich weniger Erfahrenen, 
können wir in Kürze eine Bezugs- 
adresse für die entsprechende, fer- 
tig aufgebaute Tastatur geben. 

Das wichtigste Kriterium der Ta- 
statur war die Kompatibilität zu allen 
existierenden Programmen. Es 
mußte also eine Hardwarelösung 
geschaffen werden, die keinen 
Speicherplatz benötigt. 

Der Verbindungsstecker zwi- 
schen Tastatur und C 64-Platine be- 
sitzt 19 Kontakte und eine sogenann- 
te Codierungslücke. Diese Lücke in 
der Stiftleiste verhindert ein fal- 
sches Aufstecken. Die 19 Kontakte 
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Bild 4. Bestückungsplan der Platinen 


Stückliste 2 x 8-KByte-Platine 
2 x Fassung 28-polig 

1x 8-fach DIL-Schalter 

1x 74LS113 

1 x 74LS32 

2x4, uF Elko 16V 

1x lO nF Keramikkondensator 
2x 10 kOhm Widerstand 4 WA 


Stückliste 1 x 8-KByte-Platine 
l x Fassung 28-polig 

1x 4,7 u Elko 16 V 
Stückliste 














C 64 


nicht. Das Ein- und Ausschalten er- 
folgt jetzt mit dem schon erwähnten 
Ansprechen von 1/02 ($DF00). Zu 
erwähnen ist noch, daß das Flip- 
Flop nach einem Hardware-Reset in 
den Grundzustand (Q=L, Q=H) 
geht, da sein Reset-Eingang R mit 
dem Anschluß RESET des 
Expansion-Port verbunden ist. Dann 
ist im zweiten Fall das rechte 
EPROM selektiert und im letzten 
Falldas Modul eingeschaltet. Beiei- 
nem Software-Reset (SYS 64738) 
bleibt der Zustand des Flip-Flops, 
und damit der Platine, erhalten. 
Bei der Eigenherstellung ıst zu be- 
achten, daß sich auf den Platinen ei- 
nige Durchkontaktierungen (Bild 2 
und 3) befinden. Außerdem sollten 
Sie darauf achten, ob die Bauteile 
mit der Platinenoberseite oder Un- 
terseite verlötet werden müssen. Be- 
stücken Sie die Platinen zuerst mit 
den Kondensatoren, und danach mit 
den Fassungen und Bauteilen (Bild 
4). Achten Sie bei den Kondensato- 
ren auf die richtige Polung. Bei der 
Verwendung von EPROMsdes Typs 
2132, die vier Pins weniger als ein 
2764 haben, werden diese nicht 
bündig mit der Kerbe in die Fassung 
gesetzt. Die zwei Pins auf beiden 
Seiten der Kerbe bleiben freı. 
(Markus Braun/aw) 








Wer schon seitenweise Hex-Code eingetippt hat, 
weiß wie nerviötend das auf der Schreibmaschinen- 
tastatur des C 64 sein kann. Wir stellen Ihnen des- 
halb eine komfortable Selbstbau-Hex-Tastatur vor. 


lassen sich in drei Gruppen aufteı- 
len (Tabelle ]). 

l. Die Kontakte 1 und 3 sind der 
RESTORE-Taste zugeordnet. Der 
zweite Kontaktstift fehlt. Die entspre- 
chende Bohrung ım Stecker ist ver- 
schlossen. Diese Codierung verhin- 
dert ein falsches Aufstecken des Ta- 
statursteckers. 

2. Die Stifte5 bis l2sindandie acht 
Reihen (Rows) der Tastaturmatrix 
(Bild 1) angeschlossen. 

3. Die Stifte 13 bis 20 geben den lo- 
gischen Zustand der acht Matrix- 
spalten (Columns) wieder. 

Jede Taste verbindet eine Spalte 
der Matrix mit einer Reihe der Ma- 
trix. Bei acht Reihen und acht Spal- 
ten gibt es folglich 8x8= 64 Möglich- 
keiten der Verschaltung, die der © 
64 vollständig ausnutzt. Bild 1 zeigt, 


welche Matrixpunkte die einzelnen 
Tasten einnehmen. 

Alle Tastenkontakte sind ım Ruhe- 
zustand geöffnet und werden durch 
Tastendruck geschlossen. Will man 
eine Taste von außen ersetzen, 
braucht nur die entsprechende Ma- 
trıxspalte und Reihe über einen Ta- 
ster miteinander verbunden zu wer- 
den. 

Der Anschluß der Zusatztastatur 
erfolgt über eine Adapterleiste (Bild 
2). 

Nach dem Offnen des C 64 (Ga- 
rantieverlust!) wırd der Tastatur- 
stecker abgezogen und zusammen 
mit dem Zwischenstück wieder auf- 
gesteckt. Im einzelnen besteht der 
Adaptersockel aus einem kleinen 
Stück Lochrasterplatine mit Kupfer- 
bahnen im Abstand von 2,54 mm. 
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Diese Platine stellt eine mechanisch 
feste Verbindung zwischen der 
Buchsenleiste (2,54 mm Rastermaß) 
und der Stiftleiste her. Die Buchsen- 
leiste wird dann auf die Stiftkontakte 
der C 64-Platine gesteckt und der 
Tastaturstecker auf die Stiftkontakte 
des Adaptersteckers. 

Es muß dann nur noch Stift 2 des 
Adaptersockels mit einem Seiten- 
schneider abgezwickt und das 
Flachbandkabel angelötet werden. 
Das geschieht zwischen den Lötau- 
gen der Buchsenleiste und den Löt- 
stellen der Stifte. 

Die Tastatur selbst besteht im we- 
sentlichen aus einer Lochrasterpla- 
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tine mit 24 Tasten. Bild 3 zeigt unse- 
ren Prototyp, bei dem noch einige 
Tasten »von Hand« beschriftet sind. 
Es hatsıch Jedoch eingebürgert, die 
16 Hex-Iasten im Quadrat anzuord- 
nen. Die Verschaltung der Tasten 
erfolgt mit dünnem isolierten Draht. 
Welche Pins der Stiftleiste des C 64 
mit welchen Tasten verbunden wer- 
den müssen, entnehmen Sie bitte 
Bild l. 
Die Verpackung 

Der Tastenblock mit der Lochra- 
sterplatine kann in einem Gehäuse 
eingebaut werden. Man sollte ein 
Pultgehäuse wählen, so daß das Ta- 
stenfeld nach hinten hin ansteigt. 


a a a a a 


Q 
2 


Bild 1. Die Schaltmatrix der C 64-Tastatur. Zum Anschluß ent- 


nehmen Sie bitte die beiden Kontakte einer Taste der Schaltma- 
trix und verbinden Sie über den entsprechenden ser 


Bild 3. Ein Prototyp der Hex-Tastaturen. Eine von uns testweise zusammengebaute Ver- 
sion. Für die RETURN-Taste sollte eine doppeltgroße Tastenkappe die Eingabe erleichtern. 
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Bevor Sie sich nun auf die Suche 
nach Tasten machen, ein Tip: Billig 
kommt man an Tasten, indem man 
alte Computer-Tlastaturen aus- 
schlachtet. Achten Sie dabei aber 
darauf, daß die Tasten einzeln ver- 
wendbar sind und von der Grund- 
platte gelöst werden können. Die 
Kosten für neue Tasten mit Lochra- 
sterplatte und Gehäuse dürften et- 
wa 50 Mark betragen. Eine Stückli- 
ste finden Sie in Tabelle 2. Häufig fin- 
det man sogar schon fertig aufge- 
baute Tastenblöcke, dıe man nur 
noch richtig verschalten muß. 


(Stefan Thienel/hm) 


Flachbandkebel zur Hextastatur 


Lochraster platine mit Kupferstreifen 


RT Stiftleiste mit 20 Pins 
LAK ALL 


20-polige Buchsenleiste 


PPVITTTILIIILILITIIIITIIIIIIIIIIZ, 


Taststurenschluß der C 64 Platine 


Bild 2, Querschnitt (längs einer Leiterbahn) des Adaptersteckers 


24 Computer-Tasten 1 x EIN 

24 Tastenkappen mit/ohne Beschriftung 
1 Lochrasterplatine 11x13 cm 

1 Lochrasterplatine mit Kupferstreifen; 
20 Bahnen & 2 cm Länge 

3 m Schaltdraht, verschiedene Farben 
1 m Flachbandkabel 20adrig 

1 Stüftleiste, 20polig 

1 Buchsenleiste 20polig 

1 Gehäuse, nach hinten ansteigend 


Tabelle 2. Die Stückliste zur Hex-Tastatur 
20 © 


8 Spalten 
(COL0..COL7) 


8 Reihen 
(ROWN...ROWT) 


ö 


+5V— 


au 


Code — Restore 





OÖ 
OÖ 
OÖ 
©) 
® 
O 
OÖ 
O 
O 
OÖ 
OÖ 
O 
O 
® 
O 
O 
x 
OÖ 


Tabelle 1. Die Pinbelegung der 
Tastatur-Stiftleiste auf der C 64-Platine 
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Anwendung des Monats C 64 


Fit ın 
Latein mit 
dem C 64 


Ein leidiges Thema für 
alle Lateinschüler: Voka- 
beln pauken. Mit dem 
C 64 kann es fast schon 
aß machen, vor 
allem, wenn man ein 
ar auf lateinische 
okabeln zugeschnit- 
tenes Vokabellern- 
programm hat. 


L ernprogramme gibt es ja mittler- 











weile recht viele, aber keines, 

das zum Beispiel die verschie- 
denen lateinischen Fälle berück- 
sıchtigt. »Cursus-Latinus« hat neben 
dieser Besonderheit noch eine beı- 
spielhafte Benutzerführung. 

Die Vokabeln lassen sich ın ver- 
schiedene Lektionen aufteilen. Die- 
se kann man später beliebig erwei- 
tern oder verbessern. 

Bei der Eingabe der einzelnen Vo- 
kabeln muß man zuerst die Wortart 
wählen. Entweder »Nomen«, oder 
»Adjektiv«, »Adverb«, »Verb«, »Depo- 
nens« oder »Semideponens«. Hier 


Ich wurde am 23. Dezember 1969 in Hei: 
delberg geboren und besuche zur Zeit 
die zehnte Klasse des Gymnasiums Wall- 
dorf. Meine Vorliebe für Informatik fand 
ich Ende der sechsten Klasse auf einem 
Schulfest unserer Schule. 

Damals zeigten einige Teilnehmer der 
Arbeitsgemeinschaft Computer ihr Kön- 
nen auf einigen alten Commodore-Com- 
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zeigen sich bereits die Stärken des 
Programms. Bei »Nomen« kann man 
dann das lateinische Wort selber, 


Bedeutung 2 


Bedeutung 3 


»Cursus Latinus« beim Abfragen 





dessen Genitiv, den Genus und ma- 
ximal drei deutsche Bedeutungen 
eingeben. 


putern. Als ich den zuständigen Lehrer 
bat, mich auch in einer solchen Arbeitsge- 
meinschaft teilnehmen zu lassen, vertrö- 
stete er mich auf Anfang der nächsten 
Klasse und in dieser dann auf die folgen- 
de. Als mir das Spiel zu dumm wurde, be- 
schloß ich, mir selbst einen guten, gängi- 
gen Computer anzuschaffen. Einen VC 20. 
Ich programmierte eifrig. Die Ergebnisse 
waren mehr als kläglich und die Kasset- 
ten, auf denen ich meine Programme 
speicherte, wurden schnell wieder mit 
Musik bespielt. Als ich im Herbst 1983 
erstmals vom © 64 hörte, war ich nicht sehr 
überzeugt, daß dieser Computer dem VC 
20 ernsthaft Konkurrenz machen könne. 
Dieser Glaube wurde auch dadurch be- 
stätigt, daß ich in einem Kaufhaus ein Pro- 
gramm namens »Geisterjäger« eintippte 
und sah, daß man dieses Programm auch 
leicht auf einem VC 20 schreiben konnte. 
Erst alssich Anfang 1984 ein Freund einen 
C 64 kaufte und mir vorführte, wie man ei- 
nen buntes Ballon-Sprite von der einen 
Bildschirmseite auf die andere und wie- 
der zurück POKEn konnte, was für schöne 
Klänge diese Maschine vollbrachte und 





Hat man »Deponens« gewählt, so 
besteht die Eingabe aus der ersten 
und der zweiten Stammform, und 
wieder den drei deutschen Bedeu- 
tungen. Beim Adjektiv muß zusätz- 
lich noch der Genus eingegeben 
werden. Später beim Abfragen er- 
teilt das Programm auf jede richtige 
Eingabe einen Punkt. Diese werden 
nach jeder Lektion ausgewertet und 
ausgegeben. 

Im Programm wurde auf jede un- 
nötige grafische Spielerei verzich- 
tet. Nicht gespart wurde dagegen 
an aufwendigen Bildschirmmasken 
und Hilfstafeln, die aufeinen Tasten- 
druck eine Übersicht der einzelnen 
Tastenfunktionen bringen. 

(Bernd Kraus/tr) 


wie toll es doch ist, mit prächtigen 40 Zei- 
chen pro Zeile statt 22 zu arbeiten, ent- 
schloß ich mich, meinen alten VC 20 loszu- 
werden und mir schnell das »Wunder- 
ding« C 64 anzuschaffen, wenn möglich, 
mit Floppy-Laufwerk. Das tat ich dann 
auch. Ich schrieb viele Programme, die 
natürlich erheblich besser waren als die, 
die ich auf dem VC 20 geschrieben hatte. 

In dieser Zeit entstand auch das Pro- 
gramm »Cursus Latinus«, das ich in Verär- 
gerung darüber geschrieben hatte, daß 
es kein Vokabellernprogramm gab, das 
auch für lateinische Vokabeln von Nutzen 
war. Mein Programm sollte mit möglichst 
wenigen Farben und einer komfortablen 
Eingabe-Maske arbeiten. 

Bei der Entwicklung stieß ich auf einige 
Schwierigkeiten, wie dem Problem, daß 
beim zufälligen Abfragen der Vokabeln 
kein Wort wiederholt wird. 

Motiviert von einem Klassenkamera- 
den, der das leidige Pech hatte, Franzö- 
sisch als zweite Fremdsprache zu wählen, 
arbeite ich nun an einer Version mit fran- 
zösischen Vokabeln. 

(Bernd Kraus) 
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Bei beiden Programmen handelt es sich um Eingabeerleich- 
terungen unserer Listings. Ferner werden alle Tippfehler be- 
merkt und angezeigt. 

Mit dem Checksummer 64 V3 läßt sich überprüfen, ob eine 
Zeile korrekt eingegeben wurde. Dazu muß zuerst das Pro- 
gramm Checksummer 64 V3 geladen und mit RUN gestartet 
werden. Ist das geschehen, erscheint, sobald Sie eine Zeile 
eingeben und mit RETURN abschlossen haben, links oben auf 
dem Bildschirm eine geklammerte Zahl in reverser Darstellung. 
Bei dieser Zahl handelt es sich um eine Prüfsumme. Sie muß 
- mit der ebenfalls geklammerten Zahl am Ende jeder Basic- 
Zeile übereinstimmen. Tut sie das nicht, haben Sie einen Tipp- 
fehler gemacht. Die Prüfsummen im Listing dürfen nicht mit ab- 
getippt werden. Basic-Listings enthalten keinerlei Steuer- und 
Grafikzeichen, dafür aber unter- beziehungsweise überstri- 
chene Zeichen und Wörter in geschweiften Klammern. Dabei 
bedeuten: 
unterstrichenes Zeichen = SHIFT-Taste + Zeichen 
überstrichenes Zeichen = Commocore-laste + Zeichen 
die Wörter in geschweiften Klammern: 

UP, DOWN, RIGHT, LEFT = Cursorsteuertasten 

Ferner werden alle Farben ausgeschrieben. Die Farbe, de- 

ren Abkürzung Sie auf der Tastatur des © 64 wiederfinden, er- 


Checksummer 64 V3 und MSE 


reichen Sie über die Control-Taste (CTRL) beziehungsweise 
Commocdore-Taste plus der Farbtaste 


Zahlen in geschweiften Klammern geben an, wie oft die Ta- 
stenkombination unmittelbar hinter der Zahl zu drücken ist, 
zum Beispiel 25PACE = 2x Leertaste. 

Das Listing zu diesem Checksummer V3 finden Sie zum er- 
stenmal in der Ausgabe 8/85, Seite 54, und dem Drucker/ 
Grafik-Sonderheft. Alle anderen Checksummer-Listings (V2) 
sind damit hinfällig. Die ausführliche Anleitung aus diesen Aus- 
gaben kann jedoch weiterhin benutzt werden. 


Der MSE unterstützt die Eingabe von Listings, die in Maschi- 
nensprache geschrieben wurden. Bei ihm handelt es sich um 
ein Maschinensprache-Editor, der Fehleingaben ausschließt. 
Eine abgetippte Zeile wird nur dann angenommen, wenn sie 
richtig eingegeben wurde. 

Das Listing zum MSE mit ausführlicher Anleitung finden Sie 
in den Ausgaben 1/85 bis 6/85. Auch dieses Programm ist auf 
jeder Leserservice-Diskette gespeichert. 

Außerdem schicken wir Ihnen gegen Einsendung eines an 
Sie selbst adressierten Briefumschlags (Größe DIN C5 = 0,80 
Mark, DIN CA = 1,10 Mark Porto) gerne das Listing zum MSE 
und Checksummer 64 V3 zu. 








Mit einem grafikfähigen Drucker sind 
der Kreativität kaum Grenzen gesetzt. 
Phantasievolle Schriften, wie sie jeder 
aus Märchen kennt, sind eines der 
reizvollen Anwendungsgebiete dieser 
Drucker. Mit dem Programm »Schrei- 
berling« ersetzen sie sogar Tusche 
und Federhalter. 


Wer hat nicht schon die wundervoll geschwungenen Schrif- 
ten alter Märchenbücher bewundert und sich gewünscht, 
doch so schreiben zu können? Die Erfahrung zeigtaber, daß es 
gar nicht so einfach ist, mit Federhalter und Tusche den richti- 
gen Schwung herauszubekommen, ohne dabei in Tinten 
klecksen unterzugehen. Wer aber trotzdem schöne Grußkar- 
ten, Einladungen oder sogar Urkunden in einer phantasievol- 
len Schrift erstellen möchte, ist auf die Hilfe des Computers an- 
gewiesen. Zusammen mit dem Programm »Schreiberling« wird 
es Ihnen sicherlich oft gelingen, Ihre Verwandten und Freunde 
mit gestochen scharfen Schriftstücken zu überraschen. 

»C 64-Schreiberling« verwendet eine der interessantesten 
Fähigkeiten eines Druckers — seinen Grafikdruck. Jeder, der 
einen Drucker mit dieser Funktion besitzt, hat sicherlich schon 
im Handbuch über die Technik des Binärausdrucks gelesen. 
Was man aber, außer Hardcopies, damit noch alles machen 
kann, soll hier beschrieben werden. Das Programm wurde für 
einen CP-80X entwickelt. Da dieser aber die gleichen Steuer- 
zeichen wie ein Epson RX/FX-80 verwendet, funktioniert 
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C 64-Schreiberling — 
Drucken wie gemalt 








»C 64-Schreiberling« auch mit einer ganzen Reihe anderer 
Drucker. 

Das Programm »Schreiberling« (siehe Listing) verwendet 
den Binärzeichendruck. Dabei hängt das Aussehen eines 
Buchstabens nicht mehr vom vorprogrammierten Inhalt des 
Festwertspeichers, sondern von einer eigenen Definition ab. 
Dazu ist es notwendig, dem Drucker genau zu befehlen, wel- 


. che Nadel wann und wo drucken soll, um das gewünschte Re- 


sultat zu erhalten. Beim Binärzeichendruck werden nur acht 
der neun vorhandenen Nadeln des Druckers angesprochen. 
Die Nadeln sind übereinander angeordnet. Die unterste Nadel 
hat den Wert 1, die oberste den Wert 128 (Bild 1). Um nun ein 
Zeichen zu erhalten, muß man dem Drucker für jede Nadelstel- 
lung einzeln befehlen, welche Nadeln aktiv sein sollen. 

Der Druckkopf rückt danach von selbst um ein kleines Stück 
weiter und druckt die nächste Nadelkombination. Auf diese Art 
werden beispielsweise Hardcopies vom Bildschirm gedruckt. 











Bild 1. Jede der einzelnen Nadeln 
eines Druckkopfes hat ihren 
eigenen “ahlen Wert 





Bild 2. Jeder Buch- 
stabe besteht aus einer 16x24-Punktematrix 
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Oder man entwirft einen Satz geänderter Zeichen, wie es bei 
dem Programm Schreiberling gemacht wurde. 

Betrachten wir einmal das große »Y« mit Schreiberling aus- 
gedruckt (Bild 2). Man sieht, daß es eine 16 x 24-Punktematrix 
besitzt. Da der Drucker aber nur acht Nadeln verwendet, muß 
er insgesamt dreimal drucken, um das »Y« zusammenzuset- 
zen. Zuerst die Oberteile aller Zeichen, dann die Mittelteile und 
zuletzt die Unterteile. 

Nach dem Eingeben und Starten des Programms dauert es 
eine Weile, bis alle DATA-Zeilen gelesen sind. Danach er- 
scheint auf dem Bildschirm: ».....eine.Zeile.eingeben........«. Das 
heißt, Sie können nun einen beliebigen Text, mit einer Länge 
bis zu einer Druckzeile, eingeben. Da die einzelnen Zeichen 
unterschiedlich lang sind (das | ist beispielsweise kürzer als 
das M), läßt sich nicht genau sagen, wieviele Zeichen in eine 
Druckzeile passen. Auf jeden Fall sollten Sie niemals zu viele 
Zeichen eingeben, denn sie werden nicht mehr gedruckt. Bei 
normaler Dichte (normales Drucken mit Schreiberling) passen 
ungefähr 40 Zeichen in eine Druckzeile. Am besten ist es, Sie 
probieren es einfach einmal aus. Geben Sie dazu einen Bei- 





Bild 3. So sollte Ihre erste Schriftprobe aussehen 


spieltext, etwa: »The never ending Story« ein. Dieser Text wird 
nun in normaler Dichte ausgedruckt (Bild 3). Das ist aber noch 
nicht alles, was Schreiberling kann. Wenn Sie vor die Zeile ein 
» # « stellen, werden alle Zeichen mit doppelter Dichte ausge- 
geben, probieren Sie es aus. Das Ergebnis sollte ähnlich wie 
Bild 4 auf Ihrem Drucker erscheinen. 


Sry 3 Zus Z<>35 THEN PRINT#1 „E$"K"CHR$ (128) CHR$ (2); 


<2427> 
<159> 
<253> 
<18B> 
<255> 
REM ---—- ALLE REM-ZEILEN KOENNEN AUSGELASSEN WER 

DEN <166> 
<B86> 
<B67> 
<294 > 
<o97Q> 
<B798> 


NACHHILFEUNTERRICHT 


ANGELSAECHSISCH FUER DRUCKER ---— 


REM VON KLAUS KRAMER 

REM OLAFSTR. 28 A 

REM 49758. MINDEN 

FOKE 53281,14:POKE 53288,14:FOKE 646,6 

PRINT CHR$ (147) ; "SCHREIBERLING SUCHT DATEN-EITTE 
WARTEN." 

DIM Ai$(72) „A2# (72) „A3$ (72) 

FOR I=1 TO 16:Q0$=Q$+CHR#+ (BD) :NEXT I 

FOR I=1 TO 23:0#=-0$#+CHR$ (B) :NEXT I 


<225> 
<188> 
<B44 > 
<B978> 
D <145> 
REM EINLESEN <076> 
— <186> 
RESTORE <B14> 
FOR I=1 TO 72 <125> 
FOR J=1 TO 53 <B71> 
READ X <158> 
IF X=-1 THEN 288 <x987> 
IF J=1 THEN Ail$(I)=Ail$(I)+CHRE (X) <215> 
„IF J=2 THEN A2#(I)=A2$ (I) +CHR# (X) <029> 
IF J=53 THEN AS$(I)=AS5$ (I) +CHR$ (X) <B98B> 
GOTOQ 245 <0589> 
NEXT J <118> 

IF LEN(ASF(I))=B THEN A35$(I)=SLEFTF(OF,LEN(A1$(I) 
<138> 
<115> 
<B12> 
<100> 
“8527 

EINE.ZEI 
<115> 
<228> 
<839> 
<176> 
<B88> 
<B82> 
<126> 
<127> 
<887> 
<1894> 
<117> 
<174> 
<B33> 
<B15> 
<109> 


REM ZEILEN- TEXRTEDITOR- 


PRINT CHR$ (147) ;CHR$ (14); Seh gkaesie, “ 
LE.EINGEBEN: 

PRINT CHRF (146) 

GET T$:PRINT T$; 

IF T$=CHR$#(13)THEN 418 

G0T0O 338 


«REM AUSGABE 


DPEN 1,4: E$=CHR$ (27) 
Y=-59:P=-8 
Z=PEEK (1854) 
IF Z=35 THEN Y=99:P=1 
PRINT#1 ,E$"A"CHR$.(8) 5: PRINT#1 ,E$"U"CHR$ (1); 
FOR J=i TO 3 
IF Z=35 THEN PRINT#1,E$"L"CHR$ (O)CHR$(9I; 
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DAS MAERCHEN VOWD KOENIG MURDAS 
vor Stanislaw Len 


Nuch den guten Koenig Nelixander bestieg sein Sohn (urdus der 
Thron. Alle era sich darob, denn jener wor ehrsuechlig und 
schreckhaft. Er hatte beschlossen, sich den Beinamen DER GROSSE 
zu. verdienen, und fuerchtele sich dubei vor Zuglufteistern, 
Ücchs, da man auf gewuchsten Parkett ein Bein brechen kan, 
Verwandten, denn die stoeren bein Neger am meisten aber vor 
 Weissagungen. 


Bild 4. Nicht nur Märchen lassen sich drucken 


Für alle, die gerne etwas experimentieren wollen, hier noch 
ein paar Hinweise. Beim Abtippen können Sie alle REM-Zeilen 
weglassen. Das Programm beginnt mit Zeile 145, in der die 
Bildschirmfarben verändert werden. In Zeile 160 werden drei 
Felder dimensioniert, in die später die Zeichendaten (Ober-, 
Mittel- und Unterteil) eingelesen werden. Zeile 200 bis 290 
füllt die drei Felder. In Zeile 300 bis 360 befindet sich der 
Einzeleditor und in den Zeilen 422 bis 550 werden die Daten 
auf den Drucker ausgegeben. Die I-Schleife von 422 bis 550 
liest die Buchstaben vom Bildschirm (bei normaler Dichte eine 
Zeile, bei doppelter Dichte ungefähr zwei Zeilen). Die J- 
Schleife läßt die I-Schleife dreimal die Buchstaben lesen, da 
die Ober-, Mittel- und Unterteile einzeln gedruckt werden. In 
den Zeilen 1 000 bis 2460 stehen die Zeichendaten. Da das 


Programm ganz in Basic geschrieben wurde, läßt es sich zwar 


leicht editieren, dafür ist es nicht gerade schnell — aber wozu 
gibt es Compiler? (K. Kramer/aw) 


<1975> 
<857> 
<167> 
<225> 
<241> 
<114> 
<162> 


422 :ı FOR I=19644+P TO 1064+Y 

425 : W=PEEK (I) 

430 : IF W=32 OR W=96 THEN PRINT#1,Q$; 

440 : IF W=643 THEN F=-17:G0SUB 918 

458 : IF W=48 OR W=41 THEN F=4:G0SUB 918 

468 : IF W=33 THEN F=18:G0SUB 918 

478 : IF W>64 AND W<91 THEN F=-64:605SUB 918 <118> 

475 : IF W>@ AND W<27 THEN F=44:60SUB 918 <184> 

480 : IF W>43 AND W<&B THEN F=-17:60SUB 918 <B81> 

500 : 222> 

558 : NEXT I:IF J<S THEN PRINT#1 <158> 

568 NEXT J <144> 

678 PRINT#1:CLOSE 1:60T0 328 <229> 

898 : <194> 

9808 REM UNTERPROGRAMM 1 <897> 

905 : <119> 

918 IF J=1 THEN PRINT#1 ,Al#(W+F); <166> 

928 IF J=2 THEN FPRINT#1,A2$ (W+F); <216> 

938 IF J=3 THEN PRINT#1 ,AS$(W+F); <B18> 

948 RETURN <236> 

1008 REM GROSS A-Z <B824 > 

1002 : <216> 

1818 DATA 9,32,65,198,209,2498,252,127,31,1,8,8,8,8,8 
‚„a,-1 

1028 DATA 0,62,255,3,3,2,4,208,248,254,31,3,1,2,4,8, 
-1,-1 

1830 DATA 0,128,255,255,255,131,1531,131,131,131,131, 
68,124,56,8,-1 

1848 DATA 9,1,255,255,255,1,1,1,1,1,1,130,254,124,®, 
-1,—1 

10858 DATA 8,7,31,63,112,192,128,128,128,128,128,128, 
64,128, 52 u 

1848 DATA 0,224,248,252,14,3,1, ; 1,1515152,39;28,8,- 
1,-1 

19870 DATA 2,128,255,255,255,128,128,128,128,128,64,1 
12,65,31,15,0,-1 | 

1888 DATA 0,1,255,255,255,1,1,1,1,1,2,14,252,248,248 
„B,-1,-1 

1898 DATA 98,7,31,63,114,194,1530,138,131,131,131,131, 
66,112,48,0,-1 

1188 DATA 8,224,248,252,14,3,1,1,1,1,129,1,2,14,12,8 
„1,1 

11128 DATA 98,128,255,255,255,66,66,138,1308,131,131,13 e 
1,131,98,96,0,-1 <849> 

1120 DATA 0,0,255,255,255,8,8,8,8,8,8,128,8,8,8,8,-1 <957> 

115@ DATA 4,8,248,249,192,0,8,2,8,02,0,8,8,8,0,0,-1 <aS50> | 

11428 DATA 8,7. 75: b3, 112,192,128,128, 128, 128, 194,99,9 
9,3,2,8,-1 


<225> 
<250> 
<187> 
<216> 
<a55> 
<B935> 
<251> 
<B86> 
<835> 


<212> 


<x2477? 


Listing. Schreiberling druckt een 
Bitte beachten Sie die Eingabehinweise auf Seite 54. 
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1158 


1168 
1170 


1188 


1198 
1220 
1218 
1228 
12358 
1248 


1250 


1268 
12708 


1298 


1298 
1588 


1518 
1528 


1558 
1348 


13558 


1458 


1478 
14808 


1498 
15988 
1518 
1528 


1538 
1540 


1558 
1568 
1578 


1580 


1598 
1588 


1818 


1611 
1612 
1613 
1614 
1615 
161& 


1617 
1618 
1619 
1828 
1650 
1648 
1558 
1658 
1678 
1688 


159D 
17808 
1718 


DATA 90,248,252,254,7,3,1,1,2,4,8,255,255,255,D, 1728 DATA 8,0,0,0,1,2,4,15,31,63,0,8,90,8,-1 <141> 
8,-1 <977> 1738 DATA 98,32,96,160,32,32,32,255,255,254,32,32,32, 
DATA 0,0,0,02,2,8,0,0,0,4,8,248,24908,192,08,8,-1 <198> B,-1,-1 <192> 
DATA 0,128,255,255,255,2,4,8,8,16,16,24,31,15,3 1748 DATA ®,1,7,59,51,19,19,19,17,16,B,-1 <199> 
‚a,-1 <189> 1758 DATA 8, 128, 0,8,8,8,131,252,2490,8,8,-1 <B16> 
DATA 9,0,255,255,255,0,0,8,08,08,3,15,255,249,225 1768 DATA 0,8,16,32,64,128,2,0,8,0,2,-1 <817> 
‚2,- 1.8 <122> 1778 DATA 0,3,15,18,36,68,76,148,12,7,3,0,-1 <197> 
DATA 8,128,255,255,255,8,8,-1 <@11> 1788 DATA 98,248,254,7,1,1,1,1,1,6,248,8,-1,-1 <975> 
DATA 0,0,255,255,255,1.0.-1,-1 <B55> 1798 DATA 0,48,48,24,24,24,17,22,56,32,0,-1 <212> 
DATA 0,80,128,255,255,255,8,-1 <082> 1808 DATA 8,0,1,15,38,112,128,8,0,8,8,-1 <833> 
DATA 9,0,0,255,255,255,8,-1 <233> 1818 DATA 28,48,249,192,8,8,8,0,0,8,8,-i <@25> 
DATA 8,4,8,248,249,192,0,-1 <191> 1828 DATA 8,80,121,135,131,131,133,121,8,0,-1 <B45> 
DATA 8,128,255,255,255,3,3,6,4,12,56,248,224,0, 1838 DATA 8,124,194,129,1,1,129,2268,124,0,-1,-1 <a82> 
2,2,-1 <150> 1848 DATA 8,8,3,4,4,8,8,12,6,7,1,8,-1 <850> 
DATA 8,1,255,255,255,8,192,248,124,38,3,1,1,1,6 1858 DATA B,249,252,6,3,1,1,2,2,229,254,8,-1 <108> 
„8,-1,-1 <Q890> 1868 DATA 8,90,0,0,0,8,16,32,64,128,0,8,-1 <154> 
DATA 8,128,255,255,255,8,8,2,09,0,8,82,0,8,2,2,-1 <B15> 1862 : <Bsu> 
DATA:@ 1,2395 293;295,1,1, 1, 1415 1,1,1,3, 78,1, - 1864 REM -—— SATZZEICHEN :3 ! () ?------—-——— <160> 
1 <144> 1966 : <B64 > 
DATA 9,7,31,56,96,192,128,128,128,128,127,63,12 1878 DATA 0,0,3,3,8,8,-1,8,8,3,3,08,8,-1,-1 <248> 
7,128,128,128,128 <891> 1888 DATA 0,8,8,0,0,80,-1,8,08,51,51,8,8,-1,0,48,192,8 
DATA 192,96,56,31,7,8,-1 <112> ‚2,0,-1 <233> 
DATA 8,192,248,62,7,1,1,8,8,0,255,255,255,0,80,8 191@8 DATA 90,0,127,255,254,8,8,-1,8,0,243,245,0,8,80,- 
„1,1,7,62,248,192,0,-1,-1 <@41> 1,—1 <284> 
DATA 8,128,255,255,255,63,3,8,8,8,8,128,255,255 1928 DATA 90,31,63,64,128,8,-1,02,248,252,2,1,8,-1,-1 <@S364> 
„B,90,-1 <216> 1938 DATA 8,128,64,63,31,8,-1,8,1,2,252,248,8,-1,-1 <B653> 
DATA 9,98,255,255,255,0,224,2498,56,12,6,2,255,25 1948 DATA 8,48,112,192,129,135,252,120,0,-1 <248> 
5,1,8,-1 <1B6> 1958 DATA 0,8,8,115,243,8,8,8,8,-1,-i <B26> 
DATA 4,8,248,248,192,0,0,2,0,0,0,0,0,0,8,8,-1 <252> 1952 : <158> 
DATA 98,7,31,63,96,64,128,128,128,128,64,96,63,3 1954 REM KLEIN A-Z <947> 
1,7,8,-1 <163> 1956 : <154> 
DATA 8,224,248,252,6,2,1,1,1,1,2,6,252,248,224, 1960 DATA 8,8,1,3,2,2,2,1, e 1,3,2,8,8,-1 <B85> 
8,-1,-1 <195> 1978 DATA 0,252,254,3,1,1,1,1,1390,254,255,1,2,8,-1, 
DATA 8,128,255,255,255,48,112,192,128,128,128,1 1 <B86> 
92,76,653,51,0,-1 <1B1> 1988 DATA 9,64,255,255,8,1,2,2,2,2,1,1,8,-1 <1B4> 
DATA 8,9,255,255,255,12,14,3,1,1,1,53,6,252,248, 1998 DATA 08,0,252,254,193,193,1,1,1,2,254,252,8,-1,- 
D,-i1 052 > 1 <073> 
DATA 8,8,252,252,252,4,02,0,0,0,0,0,2,0,0,0,-1 2593 2808 DATA 8,08,1,3,2,2,2,2,1,1,8,-1,8,252,254,3,1,1,1 
DATA 8,15,63,127,192,128,128,128,128,128,64,96, EU re <193> 
65,63,65,64,0,-1 <252> 2B1@ DATA 0,0,0,1,2,2,2,1,128,255,255,8,8,0,-1 <222> 
DATA 8,240,252,254,5,1,1,1,1,1,14,12,255, 255,25 20298 DATA 90,124,254,3,1,1,1,2,132,254,255,1,2,8,-1,- 
5,23,8,-1 SELSI> 1 <2984 > 
DATA 8,0,0,08,8,0,0,0,0,0,0,4,252,248,248,0,8,-1 <242> 2038 DATA 8,0,1,2,2,2,2,2,1,8,8,-1 <243> 
DATA 9,128,255,255,255,129,129,127,129,129,195, 2848 DATA 8,252,254,35,33,33,33,33,161,98,8,-1,-1 <198> 
1268,68,0,0,0,-i <254> 2058 DATA 8,15,63,114,130,131,131,128,96,32,0,-1 <233> 
DATA 92,1,255,255,255,0,128,192,96,96,30,7,5,5,2 2068 DATA 9,255,255,8,98,8,8,8,2,8,8,-1,98,252,252,4,8 
„Q,-1,-1 <185> ‚2,0,08,0,0,0,-1 <aB4> 
DATA 8,50,65,127,1997,151, 151,151,151,151,151,135 DATA 9,8,0,1,2,2,2,1, „1,1,8,-1 <B95> 
1,195,113,48,8,-1 SaRweın LET 0,124,254, 131. Er „130,132,191,127,128,8, 
DATA 0,28,30,3,.129,129,129,129,129,129,131,199, =. <216> 
254 ,252,248,80,-1,-1 <a28> 2098 DATA 0,564,52,4,4,4,4,8,16,248,224,0,8,-1 <163> 
DATA 90,32,96,192,128,128,255,255,255,128,128,12 2188 DATA 8,128,255,255,1,2,2,2,1,1,8,8,8,8,-1 <124> 
8,128,128,0,-1 <B86> Z11@ DATA 0,8,255,255,0,0,08,98,8,254,255,1,2,8,-1,-1 <@95> 
DATA 8,0,0,0,8,90,255,255,255,1,8,08,8,8,0,-1,-1 <151> 2120: DATA 0,2,51,51,8,8,8,-1,8,8,254,255,1,2,8,-1,-1 <226> 
DATA 0,7, a re a ar Z13@ DATA 8,2,51,51,8,-1,8,08,255,255,8,-1,4,8,2490,22 
5,8,8,-1 <852> 4,0,-1 <245> 
DATA 8,248,252,254,1,1,1,1,2,4,8,255,255,255,1, 2148 DATA 8,128,255,255,98,9,8,3,3,8,8,8,-1 <168> 
8,-1,-1 <B356> 2158 DATA 08,9,255,255,32,88,76,134,3,1,2,8,-1,—1 <959> 
DATA 8,96,192,224,252,127,31,3,8,08,8,08,7,216,22 2160 DATA 8,128,255,255,8,8,8,-1,0,08,254,255,1,2,8,- 
4,0,—1 <16Q> 1,—1 <197> 
DATA 8,0,0,08,98,0,224,248,255,15,48,192,8,0,8,0, 2178 DATA 8,1,2,3,1,152,351,31,2,3,1,8,8,8,-1 <865> 
u <a56> 2180 DATA 9,0,0,255,255,8,8,255,255,8,98,254,255,1,2, 
DATA 8,3,15,191,192,128,8,8,3,15,191,192,128,0, 0,-1,-1 <16B> 
0,08,08,128,255,255 <a82> 2198 DATA 0,1,2,3,1,1,2,3,1,8,8,0,-1 <126> 
DATA 255,80,8,-1 “1193 2208 DATA 0,0,0,255,255,8,8,254,255,1,2,8,-1,-1 <131> 
DATA 8,248,254,254,5,1,1,1,250,254,254,5,1,1,1, 2218 DATA 8,08,1,1,2,2,2,2,3,1,8,8,-1 <867> 
2,2,4,255,255,255,1,0,-1,-1 <063> 2220 DATA 08,252,254,3,1,1,1,1,1,254,252,8,-1,-1 <110> 
DATA 8,52,64,172,240,252,685,15,3,4,8,16,224,192 2238 DATA 0,1,2,3,1,8,1,2,2,2,3,1,8,8,-1 <1909> 
‚B,8,-1 <842> 2248 DATA 8,8,08,255,255,132,2,1,1,1,3,254,252,8,-1 <211> 
DATA 8,7,11,16,32,64,128,192,2490,252,62,15,3,1, 2258 DATA 8,90,0,252,252,4,8,8,909,8,8,8,8,0,-1 <199> 
6,8,-1,-1 <B86> 2268 DATA 8,8,8,1,2,2,2,1,1,1,1,1,8,-1 <929> 
DATA 0,968,192,224,252,127,31,3,8,8,8,08,7,21&,22 2278 DATA 08,124,254,131,1,1,1,139,132,191,127,128,8, 
4,8,-1 X232> -1 <156> 
DATA 9,0,0,0,02,0,224,248,255,14,48,192,0,0,0,0, 2288 DATA 98,0,2,0,0,0,0,2, Fi 252,252,4,8,-1 <239> 
-1 <203> 2298 DATA 8,1,2,3,1,2,3,1,1,8,-1,8,0,0,255,255,8,8,1 
DATA 0,0,08,8,12,28,24,964,128,0,0,02,2,0,0,8,-1 <B62>3 28,08,8,-1,-1 <@46> 
DATA 8,128,192,192,224,128,128,129,131,143,158, 2398 DATA 0,8,1,3,2,2,2,2,3,1,8,8,-1 <161> 
188,240,224,192,0,-1 <B63> 231B DATA 8,198,247,49,49,49,49,49,179,159,12,8,-1,— 
DATA 9;,3,7,15,29,121.241 228,129 .1.1,7,3,3,148, 1 <171> 
-1,-1 <897> 2328 DATA 0,4,12,255,255,4,4,4,8,-1 <0053> 
s <063> 2338 DATA 8,9,0,254, >55, 1, >, 0,8,-1,-1 <247> 
REM „—/ 8 BIS 9 --—— <083> 2348 DATA 0,2,3,3,8,@ ‚2.2, 3,3,8,8,0,-1 <179> 
<065> 2358 DATA 0,0,254,255,1,1,1,2,.254,255,1,2,8,-1,-1 <187> 
DATA 2,2,2,0,08,-1,0,0,5, 3,0,- 1,0,48,172,0,8,-1 <251> 2368 DATA 8,1,2,3,3,1,8,8,8,0,8,3,3,8,-1 <232> 
DATA O Bi, IE, 1, 1,1,1,1,1,80,8,-1 <882> 2378 DATA 8,0,0,8, 128, 224,1280,38,7,12,48,192,8,80,-1, 
DATA 8 0,128,128,128,128,128,128,128,128,128,12 -i <835> 
8,8,8,-1,-1 <062> 23808 DATA 9,2,53,35,0,0,3,3,0,8,3,3,8,-1 <109> 
DATA 0,0,9,08,8,8,-1,0,0,3,3,08,8,-1,-1 <114> 2398 DATA 0,8,254,255,1,2,254,255,1,2,254,252,8,-1,- 
DATA 8,0,0,0,08,0,3,12,48,192,80,8,-1 <B13> 1 <1908> 
DATA 8,90,3,12,48,192,8,8,2,0,8,8,-1,-1 <163> 2400 DATA 90,2,3,3,2,8,8,8,8,3,2,08,8,-1 <228> 
DATA 0,8,3,12,16,32,32,32,48,56,15,,8,-1 <16B> 2418 DATA 8,1,3,132,232,112,56,92,134,3,1,2,0,-1,-1 <142> 
DATA 9,240,252,14,3,1,1,1,2,12,2498,90,0,-1,—1 <241> 2428 DATA 8,1,2,3,3,1,2,8,8,8,0,3,3,8,-1 <B836> 
DATA 0,16,31,63,43,8,8,-i <210> 2438 DATA 0,8,0,0,128, 224, 120,30,7 ‚12,48,192,0,8,-1 <172> 
DATA 8,8,255,255,254,2,8,-1,-1 <003> 2449 DATA 90,8,0,24,28,12,48,172,8, ® ‚2,8,08,8,-1 <a36> 
DATA 8,8,16,32,32,32,48,31,15,0,0,0,0,8,-1 <813> 2450 DATA 0,35,3,2;2 2,242,3,.5,2,0,-1 <217> 
DATA 8,1,3,7,15,29,249,225,193,1,1,3,2,0,—1 <218> 2468 DATA 98,1,3,7,13,57,113,193,129,3,3,8,-1,-1 <881> 
DATA 98,0,90,128,128,128,128,128,128,128,90,0,0,0, 6 64er 
-1 <125> 
DATA 8,16,32,33,51,62,28,8,8,-1 <803> ieti . . - : 
a ER yet Listing Schreiberling. Verwenden Sie zur Eingabe den 
DATA 8,16,32,64,128,128,2,0,8,-1 <169> Checksummer V3. 
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Fitin Latein 
mit dem C 64 


Mit »Cursus Latinus« können Sie sich 
Ihr eigenes elektronisches Lateinlehr- 
buch aufbauen und dieses lektionen- 
weise studieren. Daß dabei die Beson- 
derheiten der lateinischen Sprache 
berücksichtigt werden, macht das Pro- 
gramm so außergewöhnlich. 


Grund zum Schreiben dieses Programms gaben mir einer- 
seits meine schlechten Zensuren in Latein und andererseits 
mein Ärger darüber, daß alle mir bekannten Vokabellernpro- 
- gramme für Lateinvokabeln gänzlich ungeeignet sind. 

Große Probleme hatte ich anfangs mit der Abfrageroutine, 
aber ich habe das Programm so weit entwickelt, daß a) bei der 
zufälligen Abfrage der Vokabeln kein Wort doppelt abgefragt 





wird und b) die Bedeutung der Vokabeln in beliebiger Reihen- _ 


folge eingegeben werden können. 

Das Programm ist an manchen Stellen recht langsam, aller- 
dings empfehle ich nicht, es zu compilieren, denn dadurch 
würde der ohnehin knappe Speicher für Vokabeln noch kürzer. 





Programmbeschreibung sacn ones 





Nach dem Starten des Programms wird dem Benutzer ein 
Menü mit fünf Punkten angeboten: 


(a) Editieren (c) Diskette (e) Ende 
(b) Abfragen ° (d) Drucken 
(a) Editieren 


Im Informationskasten (siehe Bild 1, Punkt a) sind die vier 
Hauptfunktionen dieses Programmteils dargestellt: 
(1) Eingabe (2) Verbessern 
(3) Löschen (4) Einfügen 

Weitere Funktionen sind (eine Übersicht ist mit der Taste f8 
abrufbar): 
(f1) Blättern 10 Einheiten vor 


(f3) Blättern 10 Einheiten zurück 
(f5) Blättern 1 Einheit vor 

(f7) Blättern 1 Einheit zurück 
(+) Index um 10 erhöhen 

(—) Index um 1 erhöhen 

(-) Hauptmenü 

(1) Eingabe der Vokabeln 


Bei der Eingabe muß zuerst die Wortart mit den Tasten < 
und > gewählt werden ( die angewählte wird in weiß darge- 
stellt), Symbole: Nom = Nomen Adj = Adjektiv 

Adv = Adverb Ver = Verb 
Dep = Deponens Sem = Semideponens 
Konjunktionen sollten wie Adverbien behandelt werden. 

Jetzt beginnt die eigentliche Eingabe: Der Cursor steht im 
Vokabel-Indexfeld (Bild 1). Der Vokabel-Index dient dazu, Wör- 
ter, die in alphabetischer Reihenfolge eingegeben wurden, 


nach Lektionen zu gliedern (zum Beispiel 27/05 bedeutetlLek- 


tion 27, Vers 5). Nach Drücken der RETURN-Taste wird nun, 
sofern man »Nomen« gewählt hat, der Reihenfolge nach das la- 
teinische Wort, der Genitiv, der Genus und die drei Bedeutun- 
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gen eingegeben. Hat man in der oberen Zeile einen Fehler ge- 
macht und irrtümlicherweise »RETURN« gedrückt, kommt man 
mit SHIFT-RETURN wieder zurück. Die Eingabe ist erst mit der 
Taste fl beendet, das Programm kehrt dann in das »Editier«- 
Menü zurück. 

Hier noch einmal die Tastaturbelegung: 


RETURN nächste Eingabezeile 

SHIFT- 

RETURN wieder in die letzte Eingabezeile zurück 
HOME löscht aktuelle Eingabezeile 

fl Eingabe beendet 

f3 löscht alle Eingabezeilen 


(2) Verbessern 

Um eine Vokabel zu verbessern, wählt man deren Nummer 
mit den Funktionstasten an. . 

Zuerst muß wie bei der Eingabe die Wortart gewählt werden, 
dann werden die alten Zeilen angezeigt, die mit den aus der 
Eingabe bekannten Tasten verbessert werden können. 


(3) Löschen 

Wie auch beim Verbessern, sollte man vorher mit den Funk- 
tionstasten die zu löschende Vokabel-Nummer anwählen. 
Dann drückt man die Taste »3«. 


(4) Einfügen 

Bevor man diese Taste drückt, sollte man die einzufügende 
Vokabel-Nummer anwählen. Dies unterstützt die alphabeti- 
sche Eingabe (falls man mal ein Wort übersehen hat, kann man 
diese Routine verwenden). 
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a) Informationsfeld 


b) Arbeitsgang 
c) Wortart d) Nummer der Vokabel 
e) Hauptindex f) Vokabel-Index 


9) Bestimmungsstücke h) Eingabeteil 
Bild 1. Die Aufteilung der Eingabemaske 


»BLÄTTERN« 

"Mit den Funktionstasten kann man im Speicher herumblät- 
tern. Es ist die Eingabe von 100 Vokabeln vorgesehen (von O 
bis 99), die gerade angewählte Nummer wird im Kasten »d« 
(siehe Bild 1 und 2) angezeigt. 


»INDEX« 

Der Index dient dazu, eine formatierte Lektionensammlung 
auf Diskette zu erstellen (mit dem Index gibt man die einzelnen 
Lektionen an). Näheres unter »Speichern«. 

Der Index wird in Kasten »e« (Bild 1) angezeigt und läßt sich 
mit den Tasten »+« und »—« ändern. 

(b) Abfragen 
Im Informationskasten der Abfrage (siehe Bild 3) sind fol- 


gende Möglichkeiten angezeigt. 
ıR- 
Sup 51... 
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(1) Abfragen in der Reihenfolge der Eingabe 
(2) Zufällige Reihenfolge beim Abfragen 
(f8) Informationen 

Das »Abfragen in der Reihenfolge« dient eigentlich nur dazu, 
sich einen ersten Überblick über die Vokabeln zu verschaffen. 
Wenn man die Vokabeln in der Reihenfolge, in der man sie ein- 
getippt hat, sieht, prägt man sie sich leichter ein. Wer diese 
Übung erfolgreich besteht, sollte jetzt die »Vokabeln zufällig« 
üben. 

Nachdem alle Vokabeln abgefragt sind (gilt sowohl für »Rei- 
henfolge« als auch für »Zufall«), wird das Ergebnis in absoluten 
Punkten und in Prozentzahlen angegeben (nach richtigen und 
falschen Antworten getrennt). Ich habe auf eine grafische Aus- 
wertung verzichtet, teils aus Speicherplatzmangel, teils weil 
ich meine, daß dies nur Spielerei ist. Jetzt hat man die Wahl, 
ob man alle Vokabeln nochmals wiederholen will, oder nur die 
nicht gewußten. Möchte man alle Wörter noch einmal durch- 
gehen, so kann man sich wieder zwischen zufälliger oder al- 
phabetischer Reihenfolge entscheiden. 

Noch ein Wort zur Punktezählung beim Abfragen: 

Für jede richtige Zeile erhält man einen Punkt. Hat man alle 

Zeilen richtig eingegeben, so gilt das Wort insgesamt als »rich- 


tige. Ist auch nur eine falsch, so gilt es als »falsch«. Man kann - 


übrigens die Bedeutungen in einer beliebigen Reihenfolge 
eingeben, sind alle richtig aber am falschen Platz, so zählen sie 
trotzdem als »richtig«. 

Da es mir um ein reines Lernprogramm ging, habe ich auf alle 
überflüssigen und unnötigen Extras wie zum Beispiel einen 
brüllenden Löwen, hinaufkletternde Männchen und Abfragen 
nach Zeit verzichtet. 
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Bild 2. Eine ausgefüllte Eingabemaske 
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Bild 3. Die Aufteilung der Abfragemaske 
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(c) Diskette 

Dieser Programmteil unterscheidet zwischen folgenden Ar- 
beitsgängen: 
(1) Laden 
(2) Speichern 
(3) Laden nächster Index 
und (-) zum Hauptmenü 

Beim Laden und Speichern, das übrigens sequentiell vorge- 
nommen wird, muß man zuerst den Filenamen eingeben und 
danach den Index einstellen. Wer dies schon bei der Eingabe 
getan hat, kann getrost »RETURN« drücken. 


Bildschirmmaske 

Wortart mit Gliederung 

Arbeitsgang 

Vokabel (für y=0: Index der Vokabel) 
Wortart der Vokabel (1 = Nomen 2 = 
Adjektiv 3 = Adverb 4 = Verb 5 = 
Deponens 6 = Semideponens) 
Hilfsvariable zur Cursorpositionierung 
Hilfsvariable Funktionstastendarstellung 
Informationsfeld löschen 

Wortart für Ausdruck 

Trennzeile für Ausdruck 

Nummer der aktuellen Vokabel 

String von NR 

Index 

Nächste Vokabel 

Hilfsvariablen mit unterschiedlichen Be- 
deutungen 

Hilfsvariablen zur Index-Bearbeitung 
Zufälligkeit bei der Abfrage (1 = Rei- 
henfolge, 2 = zufällig) 

Gewußte Vokabelteile gesamt 

String von Ri 

Nicht gewußte Vokabelteile gesamt 
String von F1 

Gewußte Vokabelteile in der Vokabel 
Nicht gewußte Vokabelteile in der Voka- 
bel 

Summe von RO und FO 

Hilfsvariablen beim Abfragen 
Bedeutungen (0 = nicht gewußt 1 = 
gewußt) 

Nicht gewußte Vokabeln 

Position in ZF$ 

ASCII-Werte der noch nicht abgefrag- 
ten Vokabeln 

Filename/Drucktitel 

Diskerror 

Hilfsvariablen zur Umformung von Zah- 
len in Strings 

String der Zahl WX 

(56187) Farbspeicheradresse zur Wahl 
der Wortart 

Hilfsvariablen zur Wahl der Wortart 
Gerade bearbeitete Eingabezeile 
Eingabezeilen 

Länge von ZZ$ (x) 

(53265) Adresse zum Ein- bezie- 
hungsweise Ausschalten des Bild- 
schirms 

(54272) Basisadresse des Soundchips 
Übergabeparameter an Sound-Routinen 
Laufvariablen 

Hilfsvariablen 


Tabelle 1. Alle Variablen und deren Verwendungszweck 
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.Der Filename setzt sich zusammen aus dem eingegebenen 
Namen, einem Punkt (».«) und dem Index. Das heißt, hat man 
einen Namen »Lektion« und den Index »27« gewählt, so heißt 
der Filename »Lektion.27«. 

Einer Erklärung bedarf auch Punkt (3): Hierbei wird der In- 
dex um eins erhöht und dann das entsprechende Programm 
geladen. Ist kein Filename aus früheren Eingaben da, so bringt 
der Computer eine Fehlermeldung. Man sollte dann mit Punkt 
(1) weitermachen. 

(d) Drucken 

Nach dem Drücken der Taste (1) wird die Vokabelliste ausge- 
druckt, ein Abbruch ist mit »SHIFT LOCK« möglich. 
DRUCKFORM 
00 02/05 dominus; domini; m 
(Nom.) Herr; Hausherr 

Dabei bedeutet: 


00 — Nummer domini; m — Bestimmungsstücke 


02/05 — Index (Nom.) — Wortart 
dominus — Wort Herr; Hausherr — Bedeutungen 
(e) Ende 


. Da das Programm und somit auch die Variablen (Tabelle 1 
und 2) nicht gelöscht werden, ist eine Rückkehr ins Programm 
mit GOTO 830 möglich. Will man alle Vokabeln löschen, so 
sollte man diese Taste drücken und das Programm mit RUN 
starten. 
Hinweise zum Abtippen 

Die Druck-Routine ist für den MPS-801 geschrieben. Um 
sie an andere Drucker anzupassen, hier die Erklärungen: 
4880 OPEN 1,4,7 schaltet Kleinschrift ein 
4890 PRINT #1,CHR$(14); Breitschrift 

















FL$ Drucktitel 
CHR$(15) Normalschrift GaEeR O9 
(Bernd Kraus/tr) 
260 Variablenbelegung 
830 Hauptmenü 
1040 Editieren 
1320 Eingabe 
1550 Verbessern 
1640 Löschen 
1780 Einfügen 
1870 Blättern vor 
1920 Blättern 10 vor 
1970 Blättern zurück 
2020 Blättern 10 zurück 
2070 Index ändern 
2160 Informationen 
2400 Fehlermeldung: Überlauf 
2490 Abfragen 
3280 Ergebnis 
3450 Fehlermeldung: Keine Vokabeln im Speicher 
3530 Informationen 
3760 Diskette 
3960 Laden 
4200 . Speichern 
4440 Laden nächster Index 
4550 Diskerror 
4670 Drucken 
5360 Unterprogramme 
5400 Umrechnung Zahl in String der Länge 3 
5440 Umrechnung Zahl in String der Länge 2 
9480 Wahl der Wortart 
5590 Eingabe der Vokabel 
5920 Eingabe Filename 
6070 _ Laden/Speichern Eingabe Kontrolle 
6180 Info-Masken aufbauen 
6240 Sound 


Tabelle 2. So ist das Programm aufgebaut 
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188 
110 


128 
1538 
140 
158 
168 
178 
180 
178 
280 
218 
228 
2358 
248 
258 
248 
278 
288 
298 
322 


318 
328 
332 
342 


358 
SB 


>78 


382 


3578 


KERHHERERHERKERRRRUHERTERTKR 

* 

— CURSUS LATINUS — 
MAERZ 1985 


BERND KRAUS 

AM WALDSCHWIMMBAD 2 
6787 WALLDORF/BD. 
TEL.: 86227/2982 


REM 
REM 
REM 
REM 


FUER C=64 + C=1541 
EVTL. MPS 881 


E: 
m 
= 
MEERE 
a 


KERRUERRRRNURERKERRRERERE 
REM #* 

REM *#* VARIABLEN 

REM #** 


PRINT" {CLR,WHITE,CTRL-N,ETRL-H}"3 :POKE 
53289 ,6:POKE 53281,6 

TIS=" PREUE EUER HTERTH 
KEFAHFHFH ” 

T2$=" JARERERHENNEKERIREN IE RTERTH 


KRARKH" 

TIS=" LIERRERERRHREKEKHHKHÄHEKKKHHKHHTRE 
KAARST" 

TAS=" STRRRFRFFRHKKRHHFKRFFFRHKRHÄTFHTKTIHHH 
KERRKNZ" 

TI$=" „-t3645PACE} ==" 

TöoF=" IRRE ER KESTERERIRKKSTERSTERRE 
KERRRS—" 


T7$=" zzt11SHIFT-SPACE}==T8SHIFT-SPACE} 
=st2SHIFT-SPACE}ISStZSHIFT-SPACE}YST6SHI 


FT-SPACE} So" 

TI$=" STERRERRERKERHTTERKHERKRYZTEHRTZEHE 
KEHRENZ" 

TIS=" LIRERERERERERFIHERRRNNEREE NE NEREH 
ERRRES—" 


MaBnas="=={11SHIFT-SPACEIS={23SHIFT-SPACE 


410 


420 


432 


448 
458 


468 


470 
480 
4978 
>02 


318 
528 


542 


he Jar] 


Sau 


= I) 
+-—' 


TB$S=" -ZERRRRRKERREHNTARKKRKHHFRHKFTKTTHH 
ERARFNZ" 

TCF=" SIERRERKREHHKKKRHFRTLTEHHRAHHRKHNRNR 
EERRES-" 

TD$=".-{SSPACE,SREY 33RICHTIG{WHITE,S3S 
PACE}-{3SPACE}I--tTSSPACE}ISTSSPACE „GREY 
S>FALSCH {WHITE „4ASPACE}I =" 

TEF=" -7EERRIRRRFFFHFFHHENTERHFARKHHREN 
ERRRRN—" 

TF$=" IRRE EEK ELERKREHKREHHR ARE EN 
ERAKH#SZ" 

TGF="--{GREY S}HORTART {4SPACE ,WHITE} ZZ 
<{LIG. BLUE}NDOM {WHITE} S{LIG. BLUE}ADJ {WHI 
TE}Z{LIG.BLUE}ADV {WHITE}S{LIG. BLUE}VER 
{WHITE} S{LIG. BLUE}DEP {WHITE}YSZ{LIG. BLUE 
>+SEM{WHITE}==" 

THF=" STARRFERFRFEENTARKFRAKRFRERKRFARREFHE 
ZERKKHNZ" 

TIF=N SIERSTERERRKEFEKKFHRFKKTKKFHFHKRKTHHN 
KRRRE un 
TKk$=".-12SHIFT-SFACE}I-S{32SHIFT-SPACE} 
TL$=" -TRRNTERERRERUUEEEERTHERTRTERER 
ERRRENZ" 

TM$=" -{38SPACE}Z" 

TNE=" -GAERERFRFRERFFÜDRRRRRRKHEKHHRKTTHNR 
KERKEN—" 

TU$=" rar FL ISPACEItRERStEREH 
242" 

TP£=".--{26HIFT-SFACE,GREY 3S3RICHTIG {WH 
ITE,Z25HIFT-SFACE}-t{13SHIFT-SPACE}={3SH 
IFT-SPACE}--{5SHIFT-SPACE}=—" 
Ta$="--{2SPACE,GREY 33FALSCH {WHITE ,S3SP 
ACE}>Sf{13SHIFT-SPACE}-{3SSHIFT-SPACE}-—{ 
SSHIFT-SPACE}=—." 

TRE=" -FRERKERERFRREN LI 3SSHIFT-SPACE I TER 
KZARRRENZ" 





<153> 
<159> 


<138@> 
<179> 
<231> 
<199> 
<B44> 
<128> 
<156> 
<a22> 
<249> 
<210> 
<881> 
<a23> 
<B37> 
<226> 
<B55> 
<215> 
<875> 
<@12> 
<219> 
<&172> 
<a@8> 
<223> 


<2B8> 
<136> 


<B22> 


<B18> 
<207> 
<039> 
<8975> 
<245> 


<181> 


<B16> 
<285> 


<244> 


<228> 
<a65> 
<156> 
<a75> 


<230> 
2547 


<1&8> 


<113> 
<818> 


<B297> 


<398> 


Listing »Cursus Latinus«. Beachten Sie bitte die Ein- 
gabehinweise auf Seite 54 
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578 TT#="--{GREY S3RBFRAGEN {2B5SPACE }ERGEBN 

IS{WHITE}I==" <124> 
SBB WT#F(1,B8)="NOMEN"=:WTF(1,1)="HORT"SWTF (1 

„2)="SGENETIV":WT£(1,3)="GBENUS" <928> 
398 WT$(1,4)="BEDEUTUNG 1":WT#F(1,5)="BEDEU 

° TUNG ZU:WTE(L, 6) =" BEDEUTUNG zu T1I2 
[= 174174] WT$(2,@)="ADIEKTIV"EWTS(2,1)="HORT":WT 
$(2,2)="EEMININ"”:WTF(2,5)=" NEUTRUM" <8447 
sid WTF(S,B)="ADVERB":WT$(3,1)="HORT" <B54> 
628 WTF(4,0)="VERB":WTF(4,1)="HORT":WTF(4, 
'  ZI="3STAMMFORM 1" <198B> 
6358 WTF(4,3)="STAMMFORM 2":WTF(4,4)="STAMM 

FORM Zu .WTE(A, S’=WTF(1,4) <174> 
5640 WITE(4,5)=WTF(1,5): WT$(S, B)="DEFPONENS": 

WTF(5,1)= “HUDRT"EWTS(S, ZI=WT$ (A, 2) <Bs5> 
s50 WITE(S,SI)=SWTF(4,5):WTF (6, @)="SEMIDEP.": 

FOR I=1 TO SzWT$(&, I)=WT$ (5,1) :NEXT <B12> 
ah FOR I=2 TO 4:IF I=4 THEN 688 x184> 
670 WT$(IT,4)=WT$(1,4) :WTFCI,S?SWT$(1,5):WT 

Z(I,4)=WT£(1,6) <B15> 
&8Q8 NEXT <182> 
&98 DIM MN# (12) „WO (99,6) ,„WO(Y9) <228B> 
788 MN#£(1)="HAUPTAENUE" =: MN& (2)="EDITIEREN" 

: MN& (3) =" ABFRAGEN" : MN (4) ="DISKETTE" <22&6> 
718 MN& (5) ="BRUCKEN" =: MN$ (65) ="ENDE":MN# (7) = 

"EINGABE" = MN$ (8) =" VERBESSERN" <245> 
7289 MN#E (9) =" LDESCHEN" x MNF# (18) ="EINFUEGEN": 

MNE(11)=" LADEN": MN$ (12) =" SPEICHERN" <BB5> 
732 DD£=" {HDME „24DOWN}" <214> 
748 FF$(B) =" {25SPACE}3"=:FF$(t1)="{LIG.BLUE}FI 

{GREY 33":FFFt2)="{iLIG.BLUEYIFS{GREY 33 

":FFE(Z)=" {LIG. BLUE>’FSTGREY 3S3":FFf(4) 

="{LIG.BLUE}>F7{GREY 33" x857> 
/SB FF$(S5)=" iLIG.BLUEFIFBIGREY 33": NR=B: NRF 

=" BB": INF=S"BR" “2117 
768 LL$#=" {HOME „ZDOWN,„ZRIGHT}"=:FOR I=1 TO 3 

B:LLF=SLL£+" ":NEXT:LL$=SLL$+" {4RIGHT}Y": 

FOR I=1 TO 365 <B12> 
778 LL$=LL+" "=NEXT: BA=-53285:51=-54272: POK 

E 5I+24,15 <251> 
788 WAS (1)=" (NOM. I"sWAF(2)="(ADJI. ) "WAS (ZUacm oO u 

="(ADV.)"eWAF(A)=" (VERB)" <164> 
798 WAF(SI=" (DEP. )"eWAF(b)="(SEM.)" <1B7> 
888 FOR I=1 TO 8B:5P£=SP$+"&":NEXT £3272 
g1B : <@24> 
828 : <B54> 
8358 REM ++ <117> 
848 REM ##+ HAUPTMENUE <184> 
850 BER *%* oe 7 5 
BR <B74> 
878 POKE BA,11 <BB9YF> 
888 PRINT" {WHITE, ga Be er he 

3+T4;:FOR I=1 TO S5:PRINT TJFTKFTL#F; 

EXT <B72> 
878 PRINT TM$T2#; :FPOKE 29825,125 1597 
988 PRINT" {GREY 33";:FOR I=1 TO 6 <B95> 
718 PRINT LEFT$(DD$,4+1x*3); <xB12> 
9728 PRINT SPEtZIS5FFFCI-1); SPC (54-LEN (MNE (I 

>>); MNECII5=NEXT <258>- 
938 PRINT" {HOME „2ZDOWN „ZRIGHT,WHITE,11SPACE 

+L.URSUS{SHIFT-SPACEF}LATINUS" <BRa8> 
748 PRINT" {UP ,„ZRIGSHT,GREY 3,6SFACE}VON BER 

ND KRAUS (£C) 1985":POKE BA,27 <a32> 
9758 GET At: IF Af=""THEN 758 «127> 
9&B IF At="{F1>"THEN 19848 ELS> 
7978 IF At="iF3}"THEN 2498 <222> 
988 IF At="{FS5>"THEN 376568 2384 > 
79720 IF Aft="iF73"THEN 4578 235? 
1aBaB IF Af="{FB}"THEN PRINT" {CLR}"3:END <a972> 
1B18 GOTO 748 <B48> 
1928 : 234 > 
1038 =: <248> 
1940 REM *#* <B735> 
1858 REM ** EDITIEREN <B78> 
IiB&sR REM ** x23973> 
1078 : <B350> 
iBBB POKE BA,il <B45> 
1398 PRINT" {WHITE ,„CLR}3"”: TIFT3FTIFTIFTAFT6$ 

T7FT8FTY9£, :FOR I=1 TO 5:PRINT TA£TNE; 

NEXT <1978> 
1188 PRINT TAZTBETF$FTGFETHFT2F;5 :POKE 2925,1 

25: WX=NR: GOSUB 5448: NRE=WX$: PRINT" {GR 

EY 3:”3 <B1B> 
111@ PRINT LEFTF(DD$,7)" {Z2RIGHT }"MN$ (2) " {2 


SFPALE}"TAB(ZSI NR$ETAB (29) INFTAB (32) WOF 


60 Zar 


1128 


1135 


114B 
1158 


1158 


1178 
1188 
1178 
1208 
1218 
1228 
12358 
1240 
12580 
1264 
1278 
1298 
12978 
1308 
1518 
1528 
1330 
1340 
1358 


12362 


1378 


1388 


13970 


1408 
1418 
1428 


1450 


1440 
14582 
1448 
1478 
1488 
1478 
15028 
1518 


1528 


1538 


1548 : 


15580 
1558 
15780 
1588 
15978 


16208 
1518 


1428 
16830 


(NR,®) 
PRINT LEFT$(DD$,7)5SPC (15) WT$ (WO (NR) „Q 
)=FOR I=1 TO 6 

PFRINT LEFT$(DD$,8+2#I) " {ZRIGHT}F"WTE (W 
D(NR) ,I):PRINT LEFT$(DD$,8+2*I)SPC (16 
5 

PRINT WO&(NR,I) NEXT 

PRINT" {HDME „2DOWN,ZRIGHT,LIG. BLUE,RVS 
ON„SPACE}1 {SPACE,RVOFF„SREY 3,SPACE}E 
INGABE {35FPACE ,LIG. BLUE ,RVSON,SPACE}Z{ 
SFACE ,RVOFF,GREY 3,5SFACE}VERBESSERN {3 
SFACE ,RVSON,LIG. BLUE „SFACE}FBS{SPACE,R 
VOFF,„GREY 23" 

FRINT" {HOME „3DOWN „Z2RIGHT „RVSON,LIG.BL 
UE ,SPFACEIZ{SPACE,RVOFF,SREY 3,SPACE}L 
DESCHEN {?SPACE ,LIG. BLUE ,RVSON,SPACE}4 
{SPACE „GREY Z,RVOFF „SPACE}3EINFUEGEN {4 
SPACE }INFO" 

FOEE BA,27 


GET Af:IF Atf=""THEN 1188 
IF Atf="1"THEN 1328 

IF At="2"THEN 1558 

IF A$="3"THEN 1648 

IF At="4"THEN 1788 

IF A$="{F15>"THEN 19728 


IF At=" {F3}"THEN 2020 
IF At="iF57"THEN 1878 
IF AF=" iF73"THEN 1778 
IF At="+"DR At="—-"THEN 2978 


IF A$="<F8}"THEN 2160 
IF A$="e"THEN 830 
GOTO 1188 


REM ## EINGABE 

IF 81>9797 THEN 2488 

GOTO 1518 

PRINT LL$" {HOME „ZDOWN , ZRIGHT FHORTART 

MIT «SPACE „RVSON,LIG. BLUE „SPACE }<S {SPAC 
E,RVOFF,GREY 3,SPACE}UND {SPACE ,RVSON, 
LIG. BLUE ,SPACE}> {SPACE ,RVOFF,GREY 3,5 


‚PACEFWAEHLEN" 
FRINT" {HOME „SDOWN, ZRIGHT ,RVSON,LIG.BL 


UE ,„SPACE}RETURN {SPACE ,RVOFF,SGREY 33: 
ENDE DER EINGABE" 

IF ET=1 THEN PRINT LEFT$(DD$,7)" ZRIG 
HT3"MN&E (8) :G0TO 1598 

IF ET=2 THEN PRINT LEFT$(DD$,7)" {Z2RIG 
HT}>"MN$ (18) " ZZ2SFACE}":GOTO 1488 

PRINT LEFTF#(DDE,7)" {ZRIGHT}"MNE (7)" 14 
SPACE}" 

GOSUB 5488 

PRINT LEFT$(DD$, 7I)SPC(ITDIWTF(AW,D) 
FOR I=1 TO &4:PRINT LEFT$(DD$,8+2*I)"{ 
ZRIGHTF"WT$ (AW,I) :NEXT:WO (Q1) =AW 
PRINT LL#" {HOME „ZDOWN ,ZRIGHT}HORT EIN 
GEBEN" 

GOSUB 5578 

REM IFET=1THENRETURN 

IF ET=B THEN Q1=@1+1 

FOR I=1 TO 6:ZZ#$(I)="":ZZ(I)=B: NEXT 
IF ET{>@ THEN RETURN 

NR=Q1-1:G0TQO 1348 

FRINT" {WHITEF"LEFTF (DD#$,7)T7$;:FOR I= 
1 TO 4:PRINT LEFTF(DD#,8+2#1) TAfz; =NEX 
T 

PRINT LEFT$(DD$,7)SPC (25); :WX=B1:GOSU 
B 5448: PRINT" {GREY S>3"WX$; " {WHITE,ZRI 
GHT,GREY 33" IN$ 

GOTO 1358 

REM #%* VERBESSERN 

IF Q1=B THEN 1188 
ET=1:02=01:Q1=NR: G0SUB 1328 

D1=02: NR=Q1-1:ET=9B:60T0 1848 

ZZ (BO) =WO# (01,8) :ZZ(B)=LEN(ZZE(B)):PR 
INT LEFT$(DD$, 7ISPC (32) ZZ$ (8); 

FOR I=1 TO 84: ZZ#(I)=WO#(Q1,I):ZZ(ID)=L 
EN{ZZ£{I))=:FRINT LEFT${DD+F,8+2*I); 
PRINT SPC{16) ZZ#(I); =NEXT 

S50TO 1488 
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<227> 


<1B3> 


<218> 
888 > 


<238> 


<247> 
<282> 
<153> 
<149> 
<a96> 
<226> 
<181> 
<B2S> 
<a94> 
<116> 
<997> 
<235B> 
<211> 
<BBB> 
<243> 
<B16> 
<128> 
<134> 
<122> 


<BB1> 


<a535> 
<237> 
<128> 


<145> 
<1853> 
<192> 


„1273 


“244 > 
<B15> 
<258> 
<B75> 
<B497> 
<945> 
<aQ&> 
x2B&> 


<139> 


B354> 
<152> 
<248> 
<115> 
<B24> 
x166> 
<B63> 


<B95> 


121% 
<149> 
<ı1B00> 
<B82> 





1648 
1658 
1848 


167B 


1582 
1578 
1708 


1718 
1728 
1738 
1748 


1758 
1768 
1778 
1788 
17908 
1808 
1818 


1828 
1830 


1848 


1858 
1868 
1878 
1888 
1878 


1788 
1718 
1728 
1758 
1748 


1958 
1768 
1978 
1788 
19798 


2008 
2B1B 
29828 
2038 
2840 


2858 
2u&D 
2878 
2988 


29078 
2198 
2118 
2128 
2158 
2148 
2158 
2168 
2178 
2188 
2198 


22008 


2218 


2220 


2238 


REM ** LOESCHEN 

IF @1=8 THEN 1188 

PRINT LEFT$(DD$,7)" {2RIGHT}"MNE (IP) " {3 
SPACE}" 

PRINT LL#" {HOME „ZDOWN „ZRIGHT }+BATENSAT 
Z WIRD GELOESCHT." 

IF NR=Bi-1 THEN 1748 

FOR I=NR TO B1-2:FOR J=2 TO & 
WOSCI„ÄTISWOF(I+1,J)ENEXTEWDCI+1)=WOCI 
= NEXT 


81=B1-1:IF Qi=-i1 THEN 91=2 
NR=NR-1:IF NR=-1 THEN NR=8 
G0TO 18248 


FOR I=@ TOD 6:WO$ (NR, I)=""zNEXT:WO (NR) 
=9 

Qi=Q1-1:NR=NR-1:IF NR=-1 THEN NR=Z 
G0TO 19408 


REM #* EINFUEGEN 

IF 01>97 THEN 2498 

IF Q1=8B THEN 1188 

PRINT LEFT$#(DD#, 7)" £Z2RIGHTFY"MNE(1B) "€ 
2SPACE}" 

FOR I=@1 TO NR+1 STEP-1:FOR J=B TO 6 

WOS(I,J)=WOE(I-1,J)=NEXT:WOCI)=SWOCI-1 
I=NEXT 

02=91:Q1=NR:ET=2:G0SUB 1328: ET=B: NR=Q 
1:01=92:81=01+1 

G0T0 1948 


REM *#* BLAETTERN VOR 

IF @1=8 THEN 1948 

NR=NR+1:1IF NR>Q@1-1 OR NR>?7 THEN NR=8 
:G0TO 1948 

G0OTO 1848 


REM *#* BLAETTERN 18 VOR 

IF Q1<1@ THEN 1940 

NR=NR+1B: IF NR>@1-1 OR NR>977 THEN NR= 
2:G0T0 1948 

GOTD 1848 


REM ** BLAETTERN ZURUECK 

IF Q1=@ THEN 1940 

NR=NR-1:IF NR<@ THEN NR=@1-1:60T0 194 

2 

50TO 1948 

REM ** BLAETTERN 18 ZURUECK 

IF Q1<1@ THEN 1848 

NR=NR-1@: IF NR<@ THEN NR=@1-1:60T0 18 

40 

60TO 1948 

REM ** GESAMMTINDEX 
I1=VAL(LEFT$(IN$,1)) 2 I2=VAL (RIGHT (IN 

$,1)) 

IF A$="+"THEN Ii=Ii+1:IF I1>9 THEN Ii 

=Q 

IF A$="-"THEN I2=I2+1:IF 12>97 THEN I2 

=® 

WX=I1*18+12:GOSUB 5448: IN$=WX# 

PRINT LEFT$(DD$,7)SPC (29) IN$ 

IF ES=1 THEN G0OTO 6138 

GOTO 1188 

REM ** INFO ** 

GOSUB 6188 

PRINT" {HOME „2DOWN,ZRIGHT,GREY 33% {25P 

ACE}INFORMATIONEN ZUM PROGRAMMTEIL{2S 

PACE}Y*" 

PRINT" {UP,2RIGHT,WHITE,135SPACE}YEDITIE 

REN{GREY 37" 

PRINT LEFT$(DD£,7) " {2RIGHT,SPACE,LIG. 

BLUE „SPACE }*{SFACE,GREY 3,SPACE}HAUPT 

MENUE" 

PRINT LEFT$(DD$,8) " {2RIGHT,LIG.BLUE,S 

PACE}F1{SPACE,GREY 3,SPACE}BLAETTERN 
10 EINHEITEN VOR" 

PRINT LEFT$(DD$,9) " {2RIGHT,LIG.BLUE,S 

PACE}’FS{SPACE,GREY 3,SPACE}BLAETTERN 
10 EINHEITEN ZURUECK" 

PRINT LEFT$(DD$,18) " {2RIGHT,LIG.BLUE, 

SPACE}FS{SPACE,GREY 3,SPACE}BLAETTERN 
1 EINHEIT VOR" 
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x171> 
114> 


<175> 


<a37> 
s228> 
<209> 


<2B2> 
<235> 
<B82> 
<B18> 


<137> 
<B89> 
<B48> 
<222> 
<174> 
<084> 
<B18> 


<1B&> 
<122> 


<B82> 


<242> 
<148> 
<058> 
<108> 
<@72> 


<231> 
<198> 
<198> 
<177> 
<170> 


<Ba32> 


se» 


<877> 
<172> 


<a&45> 
<a5347> 
<208> 
<89753> 
<B14> 


<258> 
<BB6> 
<au4> 
<B835> 
<165> 
<1B84> 
<8297> 
<218> 
<114> 
<185> 
<Bs5> 
<a74> 
<219> 
<151> 
<BBi> 


<B44> 


<B2Z2> 


0737? 


<232> 


<147> 


2240 


22580 


2268 


2270 


2288 


2270 


2322 


2318 


2328 


2530 


2358 


2368 
2378 
2388 
23978 
2400 
2418 





2430 
2440 
2458 
2468 
2478 
2458 
24978 
2500 
2518 
2528 
235358 
25408 


2628 


2638 
2648 
2638 
Zu608 
2678 
2680 
28970 


PRINT LEFT$(DD$,11) " {2RIGHT,LIG.BLUE, 

SPACE}IF7 {SPACE,GREY 3,SPACE}BLAETTERN 
1 EINHEIT ZURUECK“ 

PRINT LEFT$(DD$,12) " {ZRIGHT,SPACE,LIG 
. BLUE „SPACE }+{SPACE,GREY 3,SPACE}HAUP 

TINDEX UM 10 ERHDEHEN" 

PRINT LEFT$(DD$,13) " {(ZRIGHT,SPACE,LIG 
. BLUE ,SPACE}- {SPACE,GREY 3,SPACE}HAUP 

TINDEX UM 1 ERHOEHEN" 

PRINT LEFT$(DD$, 14) " {ZRIGHT „SPACE ,WHI 

TEI-{GREY 3}BEIM LOESCHEN/EINFUEGEN W 
IRD DIE{WHITEI-{GREY 3}" 

PRINT LEFT$(DD$, 15) " {(ZRIGHT,SPACE ,WHI 

TE?-{GREY ZYANGEWAEHLTE NUMMER GEL./E 
INGEF. {SHIFT-SPACE ,WHITE}I-{GREY 33" 

PRINT LEFT$(DD$,17) " {ZRIGHT ,WHITE>EIN 

GABE/VERBESSERN: {GREY 3}" 

PRINT LEFT$(DD$, 18) " {ZRIGHT,LIG.BLUE, 

SPACE}FL{SPACE,GREY 3,5SPACE}EINGABE 

BEENDET" 

PRINT LEFT$(DD$, 19)" {2RIGHT,LIG.BLUE, 

SPACEIFS{SPACE,GREY 3,5SPACE}ALLE ZEI 

LEN LOESCHEN" 

PRINT LEFT$(DD$.28) " {(ZRIGHT.LIG.BLUE, 

SPACE }HDME {SPACE ,SREY 3,3SPACE}ZEILE 

LOESCHEN" 

PRINT LEFT$(DD$,21) " {2RIGHT,LIG.BLUE, 

SPACE}RET {SPACE,GREY 3,4SPACE}IZEILE W 

EITER" 

PRINT LEFT$(DD$,22) " (2RIGHT,LIG.BLUE, 

SPACE}SF-RET {SPACE,GREY 3,SPACE}ZEILE 
HOCH" 

PRINT LEFT$(DD$,23) " {2RIGHT ‚„ZBSPACE*X 

IASTE DRUECKEN>" 

FOKE BA,27 

GET A$: IF A$=""THEN 2378 

GOTO 1840 


REM #* UEBERLAUF 

PRINT LL#" {HOME „2DOWN,2RIGHT}ZU VIELE 
DATEN IM SPEICHER!“ 

FRINT" UP ,ZRIGHT,SPACE3I< IASTE DRUECK 

EN 3* 

TT=12:605UB 4258 

GET At: IF A$=""THEN 2448 

POKE SI+4,® 

GUTDO 1948 


REM ** 
REM ##* 
REM ##* 


ABFRAGEN 


POKE BA,11:ZF=-B: R3=B: FB=9B:R1=-9:Fi1=8 

PRINT" {WHITE,CLR}Y"3: T1AFTISFTSFTSFTAFTbF 

T7$T8£T9$; :2FOR I=I=1 TO 4:PRINT TASTN 
„=NEXT 

FRINT TAFTBFTC$TD$STEFT2F; :FOKE 2925,1 

23 

PRINT LEFT$(DD$,7)" {GREY 3,ZRIGHT}"MN 

$13) " {SSPACE}" 

FOKE BA,27 

IF Qi1=B THEN 3458 

IF ER<>1 THEN UW$s="" 

IF ER=1 THEN ER=B: ZF=2: ZF$=UWE: UWE="" 

:GOTO 27988 

PRINT" {HOME „ZDOWN ,ZRIGHT,RVSON,LIG.EL 

UE,„SPACE}1 {SPACE,RVOFF„GREY 3,5SPACE>AR 

EFRAGEN IN DER REIHENFOLGE {SPACE „RVSO 

N,LIG.BLUE,„SPACE}YFB " 

FRINT" {UF ,2RIGHT,RVSON,SPACE}Z{SPACE, 

RVOFF „GREY 3,SPACE}ZUFAELLIGE REIHENF 

DLGE {&SFACE} INFO" 

GET At: IF A$=""THEN 24538 

IF Atf="1"THEN ZF=1:60T0 28970 

IF At="2"THEN ZF=2:60T0 245978 

IF Af="«-"THEN 850 

IF A$=" {F8}"THEN 3548 

GOTO 2538 

ZF£="":FOR I=B TO Q1-1:ZF#=ZF$+CHR$ (I 

+32) =NEXT 


<872> 


<171> 


<B28> 


<2356> 


<2907> 


“25377 


<11B> 


<152> 


<887> 


<aSS> 


<152> 


<156> 
<122> 
<194> 
<162> 
<B80> 
<2DB> 


<141> 


<218> 
<234 > 
<118> 
x21&> 
<242> 
<16B> 
<178> 
<255> 
<225> 
<817> 
<218> 
<B9&6> 


<255> 
<B74> 


<155> 
«8787 
<a24> 
<239> 


1947 


x132> 


<178> 
<B45> 
<Ba&> 
<177> 
<198> 
<B79> 
<a24> 


<872> 
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27080 


2718 
2728 
2738 
2740 


2758 
2768 
2778 
2798 


27978 
2800 
2818 
28920 


2832 


2848 
2858 
2848 
2978 
2888 
2878 


2908 
2918 
2928 
2938 
29748 
2958 


2948 


29770 
2780 
297970 


Sau 
3210 


>228 


0252 


3240 
>a50 


>08 
3>Q78 


3888 
Sara 


3188 
51182 
3128 


3138 
5148 


3158 
3168 
>178 


5188 
3178 
3208 
Ssz18 


3228 
3238 
3248 
3258 
Ss248 
3278 


FOR HS=@ TOD LEN(ZFE$)-1:FRINT LL$:RF=8 


: RO=Q: FO=® <167> 
IF ZF=1 THEN NR=HS:60T0 2768 <219> 
RDZA=RND (1)* (LEN(ZF$)-1) +1 <a25> 
NR=ASC (MID$ (ZF$,RD%}) -32 <165> 
IF RD%=1 THEN ZF$=RIGHT$(ZF$,LEN(ZF$) 

-RD%4) :GOTO 2748 <093> 
ZF$=LEFT$(ZF$,RDZ-1) +RIGHT$ (ZF$,LEN(Z 

F$) -RD%) <187> 
PRINT LEFT$(DD$,7)SPC (15) " {8SPACE}":W 
X=NR: GOSUB 5448: NR$=WX$ <238> 
PRINT LEFT$(DD$,7)SPC(15)WTE (WO (NR) ,Q 
)=PRINT LEFT$(DD$,7)SPC (25) NR$ <220@> 
FOR J=1 TO 6: AA$=LEFT$(DD$,8+2*J) :PRI 

NT AA$" {ZRIGHT,11SPACE}" <136> 
PRINT AA" {2RIGHT}"WTE (WO (NR) „ID; <131> 
FRINT AA$SPC (15) " {2Z1SPACE}" <189> 
NEXT <@24> 
PRINT LEFT$(DD$, 18) SPC (16) " {WHITE}Y"WO 
$(NR,1)" {GREY 33" <038> 
PRINT LEFT$(DD$,23) " {2RIGHT ‚,ZSPACE}RI 
CHTIG{3SSPACE }"TAB (25) " {SSPACE}FALSCH{ 
ASPACE}" <a5B> 
ES=2:G0SUB 5599: ES5=@ <078> 
IF WO(NRI=Z THEN 2938 <154> 
ER=@: IF WO(NR)=2 THEN ER=1 <165> 
FOR J=2 TO 3+ER <Q84 > 
IF WO$(NR,J)=""THEN 2920 <18B6> 
IF ZZ$(J)=WO$ (NR,J)THEN RO=R@+1:60TO 

2718 <207> 
FO=FA+1 <137> 
RF=RF+1 <123> 
NEXT <136> 
IF ER=1 THEN 3298 <@82> 
MX=Z:FOR J=4 TO & <111> 
MT) =B: WE=WOS(NR,IJ)zIF WE=""THEN MX=M 
X-1:60T0 2988 <253> 
IF W$=ZZ$(4)OR W$=ZZ$(5)0R WE=ZZ$(A)T 

HEN M(J)=1 <142> 
RF=RF+1 <1893> 
NEXT 

R2=M (4) +M (5) +M (6) : FA=F@O+MX-R2: RO= 

2 <208> 
IF RF<>RB THEN UW$=UWF+CHR$ (NR+32) <241> 
IF R@=@ THEN PRINT LL$" {HOME „2DOWN,ZR 
IGSHT}HDRT NICHT GEWUSST.":G0TO 3050 <1@8> 
IF RF<>RB THEN FRINT LL$" {HOME „2DOWN, 
ZRIGHT}KORT UNVOLLSTAENDIG GEWUSST.": 

G0TO 3858 <122> 
PRINT LL$£" {HOME „ZDOWN, ZRIGHT}HORT GEW 
USST.":PRINT LEFT$(DD$,23) " {ZRIGHT,RV 

SON , ZSPACEIHRICHTIG{3SPACE „RVOFF}" 35 <223> 
TT=35:605UB 4250: Ri=Ri+R@:60T0 3120 <142> 
PRINT LEFT$(DD$,23) TAB (25) " {RVSON,3SP 
ACE+FALSCH{ASPACE „RVOFF}3"::50SUB 6278 242> 
FOR K=1 TO SQ@: NEXT <aRF> 
PRINT LL$" {HOME „2DOWN , 2RIGHT}RICHTIG 

LAUTET ES:" <aBa> 
FOR J=2 TO 6:PRINT LEFT$(DD$ ,8+2#J) SP 

EC (15) "{21SPACE}" <20@5> 
PRINT LEFT$ (DD$ ,8+2*J) SPC (15) WO$ (NR, J 

) <B74> 
NEXT <a&2> 
Ri=R1+RB: Fi=F1+F@ £132> 
WX=R1:50SUB 5498: Ri$=WX$:WX=F1:GOSUB 

S490: F1$=WX$ <174> 
PRINT LEFT$(DD$,23) TAB (16) " {WHITEY"Ri | 
$TAB(21)F1$" {GREY 33" <209 > 
PRINT" {HOME ‚„3DOWN ,ZRIGHT,SPACEIX IAST 

E DRUECKEN >" <BiB> 
BET A$:IF A$=""THEN 3158 <025> 
FOKE 5I+4,® <164> 
IF A$="e"THEN FOR I=8 TO 6:7Z$(I)="": 
ZZ(I)=®:NEXT:GOTO 838 <238> 
FOR J=2 TO 6:ZZ$()="":ZZ(J)=@:NEXT <117> 
NEXT:GOTO 3280 <@63> 
MX=2:FOR J=5 TD & <BB9> 
M(T)=@::WE=WOS (NR, TI: IF WE=""THEN MX= 
MX-1:60T0 3249 <829> 
IF W$=ZZ$(5)OR W$=ZZ$(A) THEN M(W)=1  <215> 
RF=RF+1 “189 > 
NEXT <202> 
R2=M (5) +M (6) : FO=F@+MX-R2: RO=RO+R2 <8@1> 
G0TO 3988 <168> 
Fe «178? 


64 rar 


3288 
>27 
3308 


3318 


3328 


33358 


3348 
3358 
3368 
33578 


33880 
33978 
3408 
5418 


3420 
3438 
3440 
3458 
3468 


34780 
3488 
3498 
3588 
3518 
35282 
33530 
3548 


3 Sp, 
HR . Sinlındser: 


33568 
3578 


3588 


>370 


SHRmR 


35618 


5628 


3630 


3648 


3658 


3640 


3478 


SaB80 


356970 


3780 


5718 
>728 
3750 


REM #*#* ERGEBNIS 

POEE BA,„11 

PRINT" {WHITE ,ELRFI"TISTSFTSFTSFTAFTIET 
TET4AESTMFTMETMETUFTFSTRETUFTOFTREZ 
PRINT TMFTMFTMESTMFTSFTSFTAFT2ZFS : POKE 
2023,129 

PRINT" {HOME „ZDOWN, Z2RIGHT,LIG.BLUE,RVS 
ON,SPACE}1 {SFACE,RVOFF,GREY 3,SPACE>A 
LLE NICHT GEW. MDK. WIEDERHOLEN" 

PRINT" {UF ,ZRIGHT ,„RVSON,LIG. BLUE „SPACE 
+2{SPACE,RVOFF,GREY 3,SPACE}ALLE MOK. 
WIEDERHOLEN {2SPACE „RVSON,LIG.BLUE,SPF 
ACE}*{SPACE,RVOFF,GREY 3,SFACE}MHENUE" 
RF=Ri+F1:RR=INT (R1/RF*180+.5) :FF=128- 

RR 

WX=RR: GOSUB 5498: RRF=WX#:WX=FF : GOSUB 
5408: FFF=WXF 

PRINT LEFT£(DDE,13)SPC (28) Ri" {Z2RIGHT 
PFRREN X 

PRINT LEFT$(DD$,1&) SPC (28) Fi£" {2RIGHT 
I" FF" {SSHIFT-SPACE}%" 

POKE BA,„27 

GET A$: IF At=""THEN 33978 

IF A$="e"THEN 838 

IF A$="1"THEN IF Fi<>@ THEN ER=1:60T0 
253B 

IF At="2"THEN 25380 

GOTDO 3398 


REM ** KEINE VDKABELN 

PRINT LL$#" {HOME „2DOWN,ZRIGHT}KEINE MD 
KABELN IM SPEICHER." 

PRINT" {UP,3SRIGHT}<T JIASTE DRUECKEN >" 
TT=12:60SUB 8258 

GET At: IF At=""THEN 3490 

POKE SI+4,8 

GOTO 838 


REM ** INFO 

GOSUB 5188 

PRINT" {HOME „ZDOWN ,ZRIGHT,GREY 33#125P 
ACE}INFORMATIONEN ZUM PROGRAMMTEIL {25 
PACE}%*" 

PRINT" {UP ,ZRIGHT,WHITE,14SPACE}ARBFERAG 
EN{GREY 33" 

PRINT LEFT$(DD$,8)" {ZRIGHT ,WHITE>EING 
ABE {GREY 33" 

PRINT LEFT$(DD$,9) " {2RIGHT,LIG.BLUE,S 


PACE}F1{SPACE,GREY 3,5SSPACE}EINGABE B 


EENDET" 

PRINT LEFT$(DD$,18) " {2RIGHT,LIG.BLUE, 
SPACEIFS{SPACE,GREY 3,5SPACEIALLE ZEI 
LEN LOESCHEN" 

PRINT LEFT$(DD$,11)" {ZRIGHT,LIG.BLUE, 
SPACE }HOME {SPACE ,GREY 3,3SPACE}ZEILE 
LOESCHEN" 

PRINT LEFT$(DD$,12) "{Z2RIGHT,LIG.BLUE, 
SPACE}RET{SPACE,GREY 3,4SPACE}YZEILE W 
EITER". 

PRINT LEFT$(DD$,13) " {ZRIGHT,LIG.BLUE, 


'SPACE}SF-RET {SPACE,GREY 3,SPACE}ZEILE 


HOCH" 

PRINT LEFT$(DD$,14)" {2RIGHT,LIG.BLUE, 
SPACE}+{SPACE,SEREY 3,6SPACE>ABFRAGE B 
EENDEN" 

PRINT LEFT$ (DD$,1&) " {2RIGHT ,WHITE>AUS 
WAHL. {GREY 33" 

PRINT LEFT$(DDE,17)" <ZRIGHT,LIG.BLUE, 
SPACE}1 {SPACE,GREY 3,SPACE}ERAEGT ALL 
E MDKABELN DER REIHEN-" 


PRINT LEFT$(DD$, 18) " £2RIGHT ,4SPACEIFO 


LGE NACH AB." 

PRINT LEFT$(DD$,19)"{2RIGHT,LIG.BLUE, 
SPACE>2{SPACE.GREY 3,.SPACE3HAEHLT EIN 
E ZUFAELLIGE REIHEN-" 

PRINT LEFT$(DD$,2®8) " {2RIGHT ,ASPACEIFO 
LGE. | 
PRINT LEFT$(DD$,21)" {ZRIGHT,LIG.BLUE, 
SPACE}+{SPACE,GREY 3, SPACE} HAUPTMENUE 
PRINT LEFT$ (DD$ 23) " {ZRIGHT ‚ZBSPACE}< 
IASTE DRUECKEN>" 

POKE BA,Z7 

GET A$: IF A$=""THEN 3728 

GOTO 2478 
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<121> 
«2253> 


<248> 


<184> 


<195> 


<148> 
<142> 
x107> 
<1B9> 
<a55> 
<126> 
<141> 
<B84> 
<121> 
<aa2> 
<165> 
<114> 
<17&6> 
<1356> 
<Q94> 
<B12> 
<B58> 
<258> 
<24B> 
<1974> 
<0677 
<251> 
<191> 
<192> 


<156> 


<158> 


<126> 


<a977> 


<B65> 


<164> 


<129> 


<251> 


<158> 


2273 


19777 


<113> 


<189> 


<2356> 
<2B2> 
<B87> 
<217> 
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3748 : 

3750 : 

37&80 REM ## 

3778 REM ** DISKETTE 
3788 REM *## 

3798 3 

3B8B POKE BA,„iil 


5818 


3828 
3838 


>8948 
3858 


3858 


3878 


3888 
38970 
39788 
39718 
39722 
3730 
35748 
37358 
3780 
359770 
397808 
59978 
4000 
4818 
4928 
4u30 
4848 


4068 
4978 
4088 
4078 
4100 
4118 
4128 
4130 


4148 
4158 


4168 
4178 
4188 
4170 
4200 
4218 
4220 
42380 
42408 
4250 
4288 
4270 
4280 
4270 


4300 
4218 
4328 
4330 
4240 
4358 
4368 
4378 


4388 
4398 


4408 
4418 


PRINT" {WHITE,ELRI"T1$TS$TSSTSFTASTAFT 
7ET8$T9$TA$STB$;:FOR I=1 TO 1B:PRINT T 
M$; : NEXT 

PRINT T3$T5$T4$T2$;:POKE 2@23,125 
PRINT LEFT$(DD$,7) " {2RIGHT,GREY 3}"MN 
$ (4) " {SSPACE}"TAB (29) IN$ 

PRINT LEFT$(DD$,1®) " {2RIGHT}EILENAME: 
£SRIGHT}Y"FL& 

PRINT LEFT$«DD$,23) " {2RIGHT}@B, OK,®@® 
„Bu“ 

PRINT LL$" {HOME ,2DOWN , Z2RIGHT ,RVSON,LI 
G.BLUE,SPACE}1 {SPACE,SREY 3,RVOFF,SPA 
CE}LADEN {3SPACE „RVSON,LIG. BLUE,SPACE} 
2{SPACE,GREY 3,RVOFF „SPACE}SPEICHERN 
7SPACE ‚RVSON,LIG. BLUE, SPACE}*{SPACE,G 
REY 3,RVOFF}" 

PRINT" {HOME „3DOWN , Z2RISHT,RVSON,LIG.BL 
UE,SPACEIS{SPACE,GREY 3,RVOFF,SPACE>L 
ADEN NAECHSTER INDEX {4SPACE }MENUE" 
POKE BA,27 

GET A$: IF A$=""THEN 3890 

IF At="e-"THEN 838 

IF A$="1"THEN 3940 

IF A$="2"THEN 4200 

IF A$="Z"THEN 4440 

G0TO 3898 


REM *#* LADEN 

GOSUB 4978 

IF FL+=""THEN 3898 

OPEN 1,8,2,FL$+". "+INS+" ,5,R” 
DPEN 2,8,15 

INPUT#1,01 

IF ST=564 THEN 4550 

FOR I=8 TO Q1-1 

FOR J=B TO 4 

INPUT#1,WOF(I,J) 

IF WO&(1,J)="F"THEN WOS(I,J)="" 
IF ST=46 THEN 4558 

NEXT 

INFUT#1,WOCI) 

IF ST=44 THEN 4558 

NEXT. 

CLOSE 2:CLOSE 1 

PRINT LL£" {HOME „2DOWN,ZRIGHT}BATEN SI 
ND GELADEN. " 

TT=-45:60SUB 4258 : 

PRINT" {UP ,2RIGHT,SPACE}?<X IASTE DRUECK 
EN >" 

GET A$: IF At=""THEN 4148 

POKE SI+4,8 

GOTO 838 


REM #%* SPEICHERN 

IF QB1=8 THEN 3458 

GOSUB A978: IF FL$=""THEN 53808 

OPEN 1,8,2,FL$+". "+IN$+",S,W" 

OPEN 2,8,15 

PRINT#1,01 

IF ST=66 THEN 4558 

FOR I=8 TO 81-1 

FOR J=B TO & 

IF WOF(I,J?=""THEN FRINT#1,"F":G0T0 4 
318 

FPRINT#1,WO$(I1,J) 

IF ST=66 THEN 4558 

NEXT 

PRINT#1,WO(I) 

IF ST=464 THEN 4558 

NEXT 

CLOSE 2:CLOSE 1 

FRINT LL#" {HOME „2DOWN ,„Z2RIGHT}DATEN SI 
ND ABGESPEICHERT.“ 

PRINT" {UP „2RIGHT ,SPACE}?< IASTE DRUECK 
EN.” k 

TT=45: 60SUB 6258 

GET At: IF Af=""THEN 4400 

POKE SI+4,8 
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<2553> 
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<B17> 
<z10> 
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<114> 
s222> 


<2580> 
“851? 


<235> 


<8027> 


<a85> 
<118> 
<199> 
<a78> 
<195> 
<185> 
<148> 
<247> 
<116> 
<163> 
<124> 
<B22> 
<204> 
<119> 
<155> 
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<179> 
<196> 
<213> 
<158> 
x924> 
ı225> 
<198> 
<a56> 
<B78> 


<193> 
<1979> 


<1&2> 
x188> 
<158> 
<148> 
<1902> 
<225> 
<1350> 
<172> 
<200> 
<B9& > 
HRRER 
<8974> 
x188> 
<165> 


<B94> 
<182> 
<144> 
<B1B> 
<855> 
x174> 
<Bau> 


<B64> 


<an2> 


x138> 
<195> 
<198> 
<144> 


4420 
4430 
4440 
4458 
4440 


4470 
4480 
4498 
4520 
4518 


4528 
4538 


4540 
4558 
4560 
4578 


4580 


4590 
4600 
4610 


4620 


46380 
4648 
4450 
4u60 
46578 
488 
46978 
4708 
4718 


4728 PRINT" {WHITE,CLRI"TISTIFSTSIETSIFTAFTEFT 
FETSFTIETAFTBE; :FOR I=1 TO 190: PRINT T 
M+; NEXT 


4768 PRINT" {HOME ‚2DOWN,ZRIGHT,LIG.BLUE,RVS 
ON,SPACE}1{SPACE,RVOFF,GREY 3,SPACE}R 
RUCKEN" 

4778 PRINT" {UP ,2RIGHT,LIG.BLUE,RVSON,SPACE 


4880 
4818 
4828 
49838 
4840 


4850 
4958 
48978 


4888 
4870 
49708 
4918 
4728 
49758 
4740 


4958 
4960 
4970 
4780 
4990 


sauau 


Listing »Cursus Latinus«. (Fortsetzung) 


GOTO 838 


REM #* LADEN NAECHSTER INDEX 


IF FL+<>""THEN 4518 


PRINT LL$" {HOME „2DOWN,ZRIGHT}KEINE ER 


UNDDATEI VORHANDEN." 
PRINT" {UP ,3ZRIGHT}< TASTE DRUECKEN >" 
TT=12:605UB 86258 


GET At: IF A$=""THEN 4498 


POKE 5I+4,8:60T0 3848 


IN=VAL (CINE): IN=IN+1: IF IN>?7? THEN IN= 


WX=IN: GOSUB 5449: INF=WX$ 
PRINT LEFT$#(DDE,7)SPC (29) IN: GDOTO 35977 


REM *# DISKERROR 


DSE£= mn 


GET#2,A$:DS$=DS$+A$: IF ST{>64 THEN 45 


78 


PRINT LEFT$#(DD#,23)" {Z2RIGHT}";5:FOR I= 
ı TO 36:PRINT" 


”"ssNEXT 


PRINT LEFT$(DD$,23)" {ZRIGHT}"DS$; 


CLOSE 2:sCLOSE 1 
FRINT LL#" {HOME „2DOWN „2RIGHT Y2ISKERRO 


PRINT" {UF ,ZRIGHT ,SHIFT-SPACE}?< JIASTE 


DRUECKEN 
GET At:IF At=""THEN 465380 
G60T0 5802 


REM #*#* 
REM #* DRUCKEN 
REM *# 


a. 


POKE BA,11 


PRINT T3FTSFT4$T28;5 :POKE 29025,125 


ERINT LEFT$(DD£,7)" {GREY 3,2RIGHT}"MN 
$(5)"{4SPACE}”5 
4758 PRINT LEFT$(DD$, 18) " {2RIGHTIYBRUCKTITE 


Er” 


+*<{SPACE ,RVOFF,GREY 3,SPACE}>MENUE” 
4788 POKE BA,„27 
4798 IF Qi1=B THEN 3458 


GET A$:IF A$=""THEN 4808 


IF At="+-"THEN 838 
IF Af="1"THEN 4848 


GOTO 4898 
PRINT LL£" {HOME „2DOWN,ZRIGHT,GREY 532 


RUCKTITEL EINGEBEN. " 
ES=7:605UB 59728: ES=Q 
IF FL$=""THEN 838 


PRINT LL" {HOME ,2DOWN,ZRIGHT,GREY 3+A 
BBRUCH MIT {SPACE,LIG. BLUE ,„RVSON,SPACE 


>SHIFT LOCK{SPACE,RVOFF,GREY 33" 
DFEN 1,4,7 


PRINT#1 ,„CHR$ (14) FL$CHR# (15) 


FRINT#1 ,SP#:PRINT#1 


=-1 


I=I+1:IF I=@1 THEN 5898 

WX=1:G60SUB 5449: II$=WX$ 

PRINT#1,11$5" ";WO$(I,B)+LEFT$(" {65PA 
CEI" „a-LEN(WOF(I,B)))5;" "5 


PRINT#1,WO$(I,1); 
IF WO(I)=4 THEN 511@ 


IF WO(I)=5 OR WO(I)=4 THEN 5188 


IF WO$(I,2)<>""THEN PRINT#1,"5 "WO#(I 


»2)5 


IF WO&(I1,3)<>""THEN PRINT#1,"5 


>); 


PRINT#1 
5@g18 PRINT#1," {2SPACE}Y" 3; WA$F (WOLI));" T2SPAC 


E3"; 


"Wos(lI 


up Sn... 
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<134> 
<B88> 
<155> 
<B25> 


<B59> 
<878> 
<252> 
<056> 
<114> 


<253> 
<B82> 


<226> 
<198> 
<138> 
<2B6> 


<093 > 


<B44> 
<254> 
<B48> 


<217> 


<168> 
<B77?> 
<187> 
<a54> 
<B&44> 
<147> 
<195> 
<167> 
<1984> 
<119> 


<a88> 
<116> 


<138> 


<a?7&> 


<283> 


<205> 
<BBB> 
<202> 
<247> 
<228> 
<851> 
<@974> 


<B37> 
<174> 
<114> 


<a55> 
<B43> 
x2355> 
<182> 
<258> 
<224> 
<Qa47> 


62197? 
<228> 
<2435> 
<B87> 
<115> 


<141> 
<155> 


<135> 


s@a28 
5230 


Ss242 


sa58 
Ba 
53278 
pe] 4 T=1%) 
su78 
188 
sı11® 
3128 
31358 


53148 
5158 
5168 


5178 
5188 
5198 


3208 
5218 


522B 
52380 


5248 
3230 
5268 
3278 
5288 
3298 
33508 
5318 
23528 
3358 
2540 
33558 
ISs8 
3578 
23388 
3578 
3408 
5418 


5428 
3438 
5448 
5458 


5460 
3478 
3488 
5478 
Sssaß 


3518 
3228 


3538 
5548 
5552 


SIaB 


3578 
Ss388 
3378 
SoBB 
a1 


Ss35B 
5648 
Ss58 
Sasg 
5678 
3688 
Ss?7B 


PRINT#1,WO# (1,4); <B66> 5708 IF A$=CHRF (134) THEN 5840 

IF WO£(1,5)3<>""THEN PRINT#1,"; "WOS(I 57180 IF A$<" "OR A$t>"Z"THEN 56448 

BE PEN | <217> 5728 IF As>CHR# (122) AND A$ZCHRE (192) THEN 5 
IF WOS(I,&s)<>""THEN FPRINT#1,"5 "WOS(I 648 

Ze Rech | <245> 5738 IF ZZI(7Z)=28 THEN 5648 

FRINT#1 <203> 5748 IF ZZ(ZZ)=5 AND ZZ=@ THEN 5448 

PRINT#1 <213> 5758 ZZ$(ZZ)=ZZ$ (ZZ) +A$2 ZZ(ZZI=ZZ(ZZI+1:PR 

IF PEEK(6553)=8 THEN 4928 <255> INT" {LEFT}"A$"E";:G0T0 5648 

GOTO 5238 <B98> S76QB ZZ=ZZ+1:1IF ZZ=7 THEN ZZ=G+ES 
PRINT#1:PRINT#1:CLOSE 1 <828> 5778 PRINT" {LEFT,SPACE}":60T0 5618 

GOTO 5288 <823> 57808 ZZ=Z2Z-1:IF ZZ=-1+ES THEN ZZ=& 

PRINT#1 <@07> 5798 PRINT" {LEFT,SPACE}":GOTO 5618 

PRINT#1," {2SPACE}" WAS (4) " {2SPACE}F”"5 <B17> SsB0B ZZ#(ZZ)="":ZZ(ZZ)=8 
PRINT#1,WO$(I,2)5"3 "WOS(I,3)"; "WOR( S81@ IF ZZ=B THEN PRINT LEFT$(DD$,7)SPC (32 
1,4); <150> )"B{SSPACE}"5:GOTO 5618 

PRINT#1 <839> 5828 PRINT LEFT$(DD$,8+2*ZZ)SPC (16) "BiZBSP 

PRINT#1,SPC (19) ;WO8 (1,5); <195> ACE}"3:G0OTO 5618 

IF WOF(I,6)<>""THEN PRINT#1,"5 "WOS(I 5832 GOTO 56448 

„e); <IIT > 5840 IF ZZ(ZZ)=Q THEN 5618 

G0OTO 5858 <222> 5850 ZZ$(ZZ)=LEFTF(ZZSIZZY „ZZ(ZZJ-1) 2 ZZ (ZZ 

PRINT#1 <@79> )=ZZ(ZZ)-1:PRINT" {LEFT,SPACE}":GOTO 5 
PRINT#1 ," {2SPACE}" WA (WO CII) 3 " {2SPAC 518 

E}"; <B57> 5848 IF ES=2 THEN ET=1 

PRINT#1,WO$(I,2); <232> 5870 FOR I=1+ET TO 6: ZZ$(I)=""2ZZ(I)=@:PRI 
IF WO&(I1,3)<>""THEN PRINT#1,"; ":WO8t NT LEFT$(DD$,8+2*I)SPC (16); 

1,3); <21&> S888 PRINT" {2BSPACE}": NEXT: ZZ=Q+ES:ET=9:60 

PRINT#1:PRINT#1,SPC(18);5:60T0 5920 <234> TO 5618 

PRINT LL£" {HDME „2DOWN,2RIGHT,GREY 3}>A 58980 IF ES=1 THEN RETURN 
BERUCH": PRINT" {UP,SRIGHT}<X IASTE DRUE 5908 FOR I=B TO &:WO$(Q1,1)=ZZ$(I):NEXT:RE 
CKEN {SHIFT-SPACE}>" <249> TURN 

TT=12:605UB 4250 <258> 5910 : 

GET A$: IF A$=""THEN 5258 <221> 592D REM ** EINGABE FILENAME 

POKE SI+4,8 <232> 5938 FL$="":PRINT LEFT$(DD$,1@)SPC (16) " {21 
GOTO 4678 <218> SPACE}" 

PRINT LL$" {HOME ‚Z2DOWN ,2RIGHT}EERTIG." <2547 5748 PRINT LEFT#(DD#,1B)SPC (16) FL$"E"; 
PRINT" {UP,3RIGHT}< IASTE DRUECKEN >" <1I6> 5958 GET At: IF A$=""THEN 5958 

TT=45:G05UB 6258 <@87> S9ARB IF AF=CHR$ (19) THEN 59382 

GET At: IF A$=""THEN 53518 <087> 577B IF A$=CHR$ (2B) THEN 6848 

POKE S5I+4,.8 <B3&> 59788 IF A$=CHR$ (13) THEN PRINT" {LEFT,SPACE} 
GOTO 4678 <xa22> "»- RETURN 

: & IF AF=CHR$ (34) THEN 5958 

5 0 y= Wr; IF At<" "OR At>"Z"THEN 5958 

REM *#* <073> 6B1B IF At>"e-"AND A$<"A"THEN 59508 

REM #* UNTERFROGRAMME <130> 6020 IF LEN(FLF)=13+ES THEN 5958 

REM ** <995> Au3D FLF=FLF+AF:GOTO 5748 

: <032> 6840 FL=SLEN(FLE):IF FL<i2 THEN 5938 

REM ** UMRECHNUNG ZAHL-USING (I) <078> HB5n FLF=SLEFTEIFLF,FL-1) :PRINT" {LEFT,SHIFT 
WXF=STR&$ (WX) : LW=LEN (WX$) =WX$S=RIGHTE (W -SPACE}"5:60T0 5940 

X£,LW-1) :WX$=LEFT$ (" {2SPACE}" „Aa-LW) +W ABB : 

x$ a RES 62078 REM ** EINGABE KONTROLLE 

RETURN <144> &ABB FRINT LL&" {HOME „2DOWN, ZRIGHT}EILENAME 
: <972> EINGEBEN. " 

REM ** UMRECHNUNG ZAHL-USING (2) <134> H097B GOSUB 5928 

WX$=STR$ (WX) = LW=LEN (WX$) =: WX$=RIGHTS$ (W 61a IF FL£=""THEN RETURN 
X$,LW-1):WX$=SLEFT$SC"B" „I-LWI +RX SE <B4B> #118 FRINT LL$" {HOME ,„Z2DOWN,ZRIGHT}INDEX EI 
RETURN <184> NGEBEN. " 

B <112> 6128 PRINT" {UP ,2RIGHT,RVSON,LIG. BLUE ,SPACE 

REM ** WAHL DER WORTART <238> >+{SFACE,RVOFF,GREY 3,SPACE}1B EINH. 

PS=54187:AW=1 <B28> VOR" TAR (48) " {RVSON,LIG. BLUE ,SFPACE}- {5 
PA=PS+AW#4:POKE PA,1:POKE PA+1,1:POKE PACE,RVOFF,SREY 3,SPACE}1 EINH. VOR" 
FA+2,1 <B43> 8130 GET At:IF At=""THEN 6138 

GET At:IF A=""THEN 5518 ERKIHRT 614@ IF At="+"DR A$f="-"THEN ES=1:60T0 2978 
IF At<>" "AND A$<>". "AND A$<>CHR$ (13) :ES=Q 

THEN 5518 | <169> &15B IF A$=CHR$(13)THEN PRINT LL$:RETURN 
POKE PA,14:POKE PA+1,14:POKE PA+2,14 246> #160 GOTO 4138 

IF A$=CHRE (13) THEN RETURN <aa3> #170 : | 

IF At=","THEN AW=AW-i:IF Al=8B THEN AW &188 REM ** INFO-MASKE 

=6 <120> &178 FOKE BA,i1 

IF At="."THEN AWsAW+1:IF AW=7 THEN Au 6208 FRINT" {WHITE,CELRY"TIFTSFSTSFTSFTASTISS; 
=. <1356> :FOR I=1 TO 17:FPRINT TS$; :NEXT:PRINT - 
G0TO 5588 <832> T4£T2$; 

5 “2227 &218 FOKE 2923,125 

REM ** EINGABE: INDEX & WOERTER <889> 4228 RETURN 

ZZ=ES <236> 6238 : 

IF ZZ=@ THEN PRINT LEFT$tDD$,7)SPC (32 6240 REM ** SDUND 

)Z7F(B);:60T0 5430 <11&> 82598 POKE 5I+24,15:POKE SI+5,11:POKE SI+6, 

PRINT LEFT$(DD$ „8+2*7ZZ) SPC (16) Z7$ (77) G:POKE SI,@:POKE SI+1,TT:POKE SI+4,17 
; <206> 6248 RETURN 

PRINT"E"; <251> 5278 POKE SI+24,15:POKE SI+5,28:FOKE SI+ö, 
GET A$: IF As=""THEN 5640 <232> B:FOKE SI,@:POKE 5I+1,2:POKE 5I+4,33: 
IF At=CHRE (13) THEN 5768 <105> RETURN 

IF AF=CHR$ (28) THEN 5848 <a15> R 

IF A$=CHR$ (17) THEN 5808 <@41> 6 B4’er 

IF A#=CHR$ (141) THEN 5780 <@1&> | 

IF A$=CHRE (133) THEN 5898 <225> Listing »Cursus Latinus«. (Schluß) 
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<118> 
<B28> 


<1786> 
<281> 
<B37> 


<158> 
<a07> 
<1302> 
<115> 
<158> 
<a54> 


<B98> 


<1978> 
<182> 
<115> 


<B35> 
<146> 


<872> 


<9a98> 
<1972> 


<1935> 
<B44> 
<115> 


<128> 
<a74> 
89777 
<g45> 
<B85> 


<1351> 
<176> 
<B74> 
<215> 
<B77> 
<118> 
<221> 


<192> 
<1974> 
<B997> 


sB4a4> 
<1898> 
<B18> 


<2985> 


<139> 
<B59> 


<BS5&6> 
<B33> 
<156> 
<259> 
<a597>., 
zB75> 


<151> 
<245> 
<182> 
<11B> 
<126> 


<114> 
x<222> 


<164> 








Hypra-Text 


Mit Hypra-Text haben Sie ein sehr lei- 
stungsfähiges Programm vorliegen. 
Besonders die Arbeit mit Textvariablen 
und die umfangreichen Möglichkeiten 
bei der Druckeransteuerung sind her- 
vorzuheben. Hypra-ext gehört sicher- 
lich zu den besten Programmen, die 
man abtippen kann. 


' Tippen Sie zuerst das Hauptprogramm (Listing 1) ab und 
speichern es auf Diskette. Anschließend ist noch eine Maschi- 
nenroutine »PROFIP V1.0« (Listing 2) und das Programm 
»Zloader« (Listing 3) einzugeben. Die Maschinenroutine über- 
nimmt alle Aufgaben, die in Basic zu lange dauern würden. Das 
Programm »Zloader« ist ein in sich geschlossenes Basic- 
Programm, das es Ihnen erleichtert, einen beliebigen Drucker 
an das Programm anzupassen. So läßt sich mit diesem Pro- 
gramm zum Beispiel sehr leicht der Code eines Zeichens än- 
dern, das zum Drucker gesendet wird. Um Ihnen Tipparbeit zu 
ersparen, ist in diesem Programm eine Routine integriert, die 
einen Großteil des Zloaders selbst generiert. Haben Sie das 
Programm »Zloader« abgetippt, ist es das erste Mal mit 
»RUN20000« zu starten. Auf dem Bildschirm erscheinen nun 
nacheinander die erzeugten Basic-Zeilen. Meldet sich das 
Programm mit READY, sind zwei Tabellen erzeugt worden. 


eigenen Bedarf anzupassen. Die Zeilen in Listing 4 sind ähn- 
lich aufgebaut, wie die von 8000 bis 8500. Hier steht jedoch 
nicht nur ein Code, sondern acht Codes für das Bildschirm- 
Zeichen und acht Codes für das Drucker-Steuerzeichen. Die 
acht Codes für ein Bildschirmzeichen werden wie folgt erstellt: 
1. Zeichnen Sie ein 8x8-Punkte-Raster (Bild 1). 

2. Wo später ein Punktauf dem Bildschirm gesetzt werden soll, 
füllen Sie das entsprechende Kästchen aus. 

3. Addieren Sie die Spaltenwerte der ausgefüllten Kästchen 
und schreiben Sie sie hinter die Zeile. 

4. Übernehmen Sie die Zeilenwerte der Reihe nach in die 
DATA-Zeile. 

Beispiel: 

8534 DATA” (Commodore-E}” ,102,0,60,102,102,102,60, 
0,185,196,196,196,185,128,0,0 

definiert das Bildschirm- und Druckerzeichen »ö«. 

Die Zahlenreihe »102,0,60,102,102,102,60,0,« definiert das 
Bildschirm-Zeichen, 

die Zahlenreihe »185,196,196,196,185,128,0,0« definiert das 
Drucker-Zeichen. 

Bestimmte Drucker-Steuerzeichen verlangen weniger als 
acht Codes. So bedeutet zum Beispiel 27, 45, 49 »unterstrei- 
chen ein« auf einem Epson-Drucker. Soll eine solche Befehls- 
sequenz an den Drucker übergeben werden, so ist diese nach 
der Definition des Bildschirmzeichens unmittelbar einzuge- 
ben. Der Rest der Zeile ist mit Nullen aufzufüllen. In diesem Fall 
mit fünf Nullen. 

Beispiel: 
8500 DATA’ (Zeichen) ” 1,2,3,4,5,6,7,8,27,45,49,0,0,0,0,0 

Es müssen also nach der Definition des Bildschirmzeichens 
immer acht Codes für das Drucker-Steuerzeichen folgen, 
auch dann, wenn weniger Codes an den Drucker übergeben 
werden. Nullen im Drucker-Steuerzeichen sind durch den 


Die erste Tabelle steht in den Zeilen 8000 bis 8500! Hlie ONASCH Wert 48 zu ersetzen. 


wird jedem Zeichen, das hinter der DATA-Anweisung steht, ein 
Drucker-Code zugeordnet. Sie werden feststellen, daß in den 
Zeilen 8000 bis 8060 statt des Zeichens nur ein Punkt steht. 
Dieser Punkt steht für die Tastenkombinationen, die zusam- 
men mit der »CTRL-Taste« erreicht werden. So bedeutet der er- 


ste Punktin Zeile 8000, hinter dem eine 1 steht, »CTRLA«. Der 


zweite in Zeile 8002, hinter dem eine 2 steht, bedeutetfolglich 
»CTRL B«. Möchten Sie zum Beispiel einen Drucker an den 
User-Port über die im Programm »Profiprint« (erscheint in der 
nächsten Ausgabe) integrierte Centronics-Schnittstelle be- 
treiben, so sind in den Zeilen 8000 bis 8500 alle Codes für 
Großbuchstaben durch die entsprechenden Codes für Klein- 
buchstaben und die Codes für Kleinbuchstaben durch die ent- 
sprechenden Codes für Großbuchstaben zu ersetzen. Der 
Grund dafür ist, daß die meisten Drucker, die über eine 
Centronics-Schnittstelle betrieben werden, die Zeichen im 
ASCII-Format drucken. Der Commodore-Zeichensatz weicht 
jedoch insofern von dem Standard-ASCIl-Zeichensatz ab, daß 
die Codes für Groß- und Kleinbuchstaben vertauscht sind. 
Achten Sie bei der Anpassung des Zeichensatzes darauf, daß 
im Zeilenbereich 8000 bis 8500 weder Zeilen hinzugefügt 
noch gelöscht werden dürfen. Auch ist es unzulässig, Zeichen 
zwischen den Anführungszeichen zu ändern. 

Ein besonderer Leckerbissen befindet sich in der zweiten 
Tabelle, in den Zeilen 8500 bis 9000. Hier werden alle Umlau- 
te und Sonderzeichen sowohl für den Bildschirm wie auch für 
den Drucker definiert. 

Ersetzen Sie die erzeugten Zeilen durch das Listing 4. Denn 
in diesem Listing wurden die Steuerzeichen so definiert, wie 
sie in der Anleitung zu »Hypra-Text« erklärt werden. Sollten Ih- 
nen die auf dem Bildschirm erzeugten Umlaute und Sonderzei- 
chen nicht gefallen, oder stimmen die Drucker-Steuerzeichen 
nicht mit Ihrem Drucker überein, so besteht die Möglichkeit, 
die Umlaute, Sonderzeichen und Drucker-Steuerzeichen dem 


Ausgabe 10/Oktober 1985 


Wollen Sie das Bildschirm-Zeichen beibehalten, so ist nach 
dem in Anführungsstrichen stehenden Zeichen die Zahl 999, 
gefolgt von den acht Drucker-Codes, einzugeben. Alle Codes 
müssen, wie üblich bei DATA-Anweisungen, durch ein Komma 
getrennt werden. 

Beispiel: 
8500 DATA” (Zeichen) ”,999, 27,45,49,0,0,0,0,0 

Wenn Sie in den Zeilen 8500 bis 9000 etwas ändern, ist 
darauf zu achten, daß Zeilen weder gelöscht, übersprungen 
oder hinzugefügt werden dürfen. Auch ist unbedingt darauf zu 
achten, daß die Reihenfolge der Steuerzeichen und Umlaute 
eingehalten wird. Denn das in der nächsten Ausgabe erschei- 
nende Programm »Profiprint« erkennt aufgrund der Reihenfol- 
ge, ob es sich um ein Drucker-Sonderzeichen oder einen Um- 
laut handelt. 

Haben Sie den Zeichensatz Ihren Wünschen angepaßt, ist 
das Programm »ZLOADER« nochmals mit »RUN« zu starten. 
Auf dem Bildschirm erscheinen jetzt nacheinander die neu de- 
finierten Sonderzeichen und Umlaute. Gefällt Ihnen eines der 
Zeichen nicht, so können Sie das Programm mit der RUN/ 
STOP-Taste jederzeit unterbrechen, die entsprechende DATA- 
Zeile ändern und das Programm noch einmal mit RUN starten. 
Sind alle Zeichen zu Ihrer Zufriedenheit definiert, erzeugt das 
Programm zwei Files auf Diskette. Einen Bildschirm-Zeichen- 
satz mit dem Namen »ZEICHEN DIN« und einen Drucker-Steu- 
ersatz mit dem Namen »ZEICHEN DDIN«. Außerdem wird der 
Zloader unter dem Namen »LOADER DIN 2.1« mit den abgeän- 
derten DATA-Zeilen gespeichert. 

Noch eines vorweg: Im Hauptprogramm von Hypra-Text wer- 
den Sie gefragt, ob Sie mit der DIN- oder normalen C 64- 
(CBM-)Tastatur arbeiten möchten. 

Der Unterschied zwischen den beiden Tastaturen liegt dar- 
in, daß bei der DIN-Tastatur die Tasten so belegt sind, wie Sie 
es von einer Schreibmaschine gewohnt sind. Es stimmen also 
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die Zeichen die auf dem Bildschirm erscheinen nicht mit dem 
überein, was auf den Tasten steht. Wählen Sie dagegen die 
CBM-Tastatur, so erscheint genau das auf dem Bildschirm, 
was auf den Tasten steht. Trotzdem existieren auch hier die 
deutschen Umlaute, die über die Commodoretaste plus 
E,R,T,Z,U,l erreichbar sind. Um aber mit der CBM-Tastatur ar- 
beiten zu können, erwartet Hypra-Text zwei Files auf der Dis- 
kette, die noch nicht erwähnt wurden. Bei den beiden Files 
handelt es sich um »ZEICHEN B« und »ZEICHEN D«. Diese 
beiden Files können aber sehr einfach generiert werden. Er- 
setzen Sie einfach im Programm »Zloader« in Zeile 40040 
»ZEICHEN DIN« durch »ZEICHEN B« und in Zeile 40001 »ZEI- 
CHEN DDIN« durch »ZEICHEN De. Anschließend ist das Pro- 
gramm Zloader nochmals mit RUN zu starten. Die erforderli- 
chen Files werden nun auf der Diskette generiert. 


Im weiteren Verlauf dieser Anleitung wird Ihnen auffallen, 


daß vor jeder Funktion zwei Zahlen stehen, die jeweils durch 
einen Punkt getrennt sind. So lesen Sie zum Beispiel »1.1.Ein- 
gabe des Textes«. Um diese Funktion zu erreichen, drücken 
Sie vom Hauptmenü aus einfach zweimal die »1«. 





Das Hauptprogramm von 
»Hypra-Text« 


Bevor Sie die Arbeit mit Hypra-Text beginnen, überzeugen 
Sie sich davon, daß sich folgende Files auf Ihrer Diskette befin- 
den: 

1. HYPRA-TEXT (in Basic, oder was zu empfehlen ist, in compi- 
lierter Form. Da im Programm SYS-Aufrufe mit zusätzlicher Pa- 
rameterübergabe enthalten sind, eignet sich zum Compilieren 
nur der Austro-Compiler. Die Leser-Service-Diskette enthält 


neben dem Basic-Programm auch das compilierte Riledm onı. 


2. PROFIP V1.0 (Maschinenroutinen) 

3. ZEICHEN DIN (Bildschirm-Zeichen) 

4. ZEICHEN DDIN (Drucker-Steuerzeichen) 
und wenn die CBM-Tastatur gewünscht ist: 
5. ZEICHEN B (Bildschirm-Zeichen) 

6. ZEICHEN D (Drucker-Steuerzeichen) 

Bevor Sie das Programm mit RUN starten, müssen Sie eine 
persönliche Kennung und die Laufwerksnummer Ihrer Floppy 
eingeben. Die Kennung dient dem Datenschutz: Außer Ihnen 
hat niemand Zugriff auf persönliche Daten und Texte. Dies ge- 
schieht mit folgenden Befehlen: 

POKE 930,ASC(”1.Buchstabe ”):;POKE 931,ASC(” 2.Buch- 
stabe”) :POKE 932,Laufwerksnummer 

Als Kennung können Sie zum Beispiel die Initialen Ihres Na- 
mens eingeben. Die Laufwerksnummer ist im Normalfall »8«. 

In einer der nächsten Ausgaben wird, passend zu Hypra- 
Text, eine Adreßverwaltung erscheinen, die diese POKEs 
durch die automatische Abfrage eines Geheimwortes über- 
flüssig macht. | 

Nun werden Sie gefragt, ob Sie mit der DIN- oder der CBM- 
Tastatur arbeiten wollen. Ist die DIN-Tastatur gewünscht, 
drücken Sie einfach auf die RETURN-Taste. Ansonsten ist das 
Wort »din« durch scbm« zu ersetzen. Es werden dann automa- 
tisch die erforderlichen Files nachgeladen. 

Hypra-Text erwartet jetzt die Eingabe des Datums im Format 
TTMMJJ. Der 1. Januar 1986 wird zum Beispiel mit 010186 
angegeben. | 


1.Text erstellen 

Nach Wahl dieses Punktes kommen Sie in ein Untermenü. 
1.1.Eingabe des Textes 

Die Eingabezeile, also die Zeile, in der der Cursor steht, be- 
findet sich immer in der Mitte des Bildschirms. Nach jeder ab- 
geschlossenen Zeile wird der gesamte Text um eine Zeile 
nach oben geschoben. Um einen eingetippten Text zu editie- 
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ren, können Sie mit RETURN den Text eine Zeile nach unten 
und mit F5 eine Zeile nach oben schieben. Die Tasten »Cursor- 
rechts« und »Cursor-links« behalten ihre alte Funktion bei. Mit 
»Cursor-hoch« und »Cursor-runter« können Sie ein Wort vor- 
oder zurückspringen. Die HOME-Taste hat bei Hypra-Text die 
Funktion »Tabulator«. Dazu befindet sich in der fünften Bild- 
schirmzeile von oben eine Tabulatorzeile Wenn die Taste 
HOME gedrückt wird, so springt der Cursor bis zur nächsten 
»+«-Marke. Der Leerraum bei einem Tabulator-Sprung wird mit 
Punkten gefüllt, die aber nicht gedruckt werden. 

Weiterhin sind die folgenden Tasten mit Drucker-Steuerzei- 
chen belegt, vorausgesetzt, Listing 4 wurde wie abgedruckt 
in den Zloader übernommen: 

Commocdore-Taste und 
n: Breitschrift an 

m: Breitschrift aus 

g: Fettschrift an 

h: Fettschrift aus 

j; Italic-Schrift an 

k: Italic-Schrift aus 

c: Unterstreichen an 
v: Unterstreichen aus 

Diese Steuerzeichen sind natürlich nur dann sinnvoll, wenn 
der angeschlossene Drucker sie auch ausführen kann. 

Die CLR-Taste löscht die Zeile, in der sich der Cursor befindet. 
SHIFT-RETURN markiert einen Absatz. 
Die Funktionstasten sind wie folgt belegt: 
Fi: zum Hauptmenü (der erstellte Text bleibt natürlich erhal- 
ten) 
F2: Einfügen. Man hat jetzt zwei Möglichkeiten, den Text ein- 
zufügen: 
a) F3: Der Computer fügt ab der Cursor-Zeile die eingegebene 
Anzahl an Leerzeilen in den Text ein, 

©. Alles was rechts vom Cursor steht wird verschoben, 
und zwar so lang, bis eine Funktionstaste gedrückt wird. 
F3: mehrere Zeilen löschen. Ab der Cursorzeile wird die ein- 
gegebene Anzahl an Zeilen gelöscht. 
F4: Block kopieren. Die aktuelle Cursorposition wird nun als 
Blockanfang interpretiert; das Blockende wird mit den Tasten 
F5 und F7 verschoben und mit F3 markiert. Danach müssen 
Sie mit den selben Tasten angeben, an welche Stelle im Text 
dieser Block kopiert werden soll. 
F5: Cursor eine Zeile hoch. 
F6: Nach Drücken dieser Taste können Sie mit F5 oder F6 ei- 
ne Textseite vor- oder zurückblättern. 
F7: Diese Taste schaltet zwischen den Hilfstafeln im unteren 
Teil des Bildschirms hin und her. 
F8: Text nachladen. Nach der Eingabe des Namens wird der 
Text geladen und ab der Cursor-Zeile eingefügt. 


Die Druckerbefehle von Hypra-Text 


Diese Befehle bewirken nur etwas, wenn der Text auf dem 
Drucker ausgegeben wird. Auf dem Bildschirm werden sie 
nicht ausgeführt! Alle Befehle werden direkt in den Text hinein- 
geschrieben. 
noformat 
Druckt den Text so, wie er auf dem Bildschirm steht. 
mittezen 
Druckt den Text mittezentriert. 
rechtsio 
Druckt den Text rechtsbündig. 
formnorm 
Hebt »mittezen« und »rechtsfo« auf. 
dezlen=xy 
Dient zur Formatierung von Zahlen innerhalb des Textes. 
dezilen=34 bedeutet zum Beispiel, daß alle Zahlen auf drei 
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Stellen (=x) vor, und vier Stellen (=y) nach dem Komma for- 
matiert werden. 

1.2.Eingabe des Textnamen 

Der hier eingegebene Name kann in Punkt 5.5. durch »=« 
übernommen werden. Er wird im Hauptmenü angezeigt. 
1.3.Eingabe über Maske 

Die Erstellung einer Maske (zum Beispiel für Serienbriefe) ist 
äußerst einfach. 

Sie tippen im Texteingabemodus Ihre Maske als normalen 
Text ein. An alle Stellen, an denen Sie später zum Beispiel eine 
Adresse eingeben wollen, setzen Sie eine Markierung (Com- 
modore-Taste und »Klammeraffe«). Dann speichern Sie die fer- 
tige Maske ab, und wählen Punkt 1.3. 
1.4Text löschen 
Es wird der gesamte, im Speicher befindliche Text gelöscht. 
Der Computer zeigt dabei an, welche Zeile er gerade löscht. 
Sicherheitshalber verlangt er vorher noch eine Bestätigung. 
1.5.Text ausfüllen 
Hier können Sie an alle Zeilen Punkte oder böstinmte Zeichen 
anhängen. Ob links oder rechts vom Text, und ab welcher Zeile 
bestimmen Sie. Dies ist zum Beispiel sinnvoll, wenn Sie eine 
Tabelle haben und an jede dritte Zeile einen Namen oder ähnli- 
ches anhängen wollen. 

Wenn Sie die Frage »Neben den Text (j/n)« mit »n« beantwor- 
ten, so werden alle angegebenen Zeilen gelöscht und durch 
die Anderung ersetzt. 
1.6.Eingabe Tabulatorzeile 
Hier können Sie die Tabulatorzeile des Texteingabemodus än- 
dern. Dazu benützen S0 die Cursor-Tasten. Mit »+« markieren 
Sie einen Tabulator-Stop. 
2.1.Text ändern 
Entspricht der Eingabefunktion (Punkt 1.1.). Sie geben nur zu- 
sätzlich mit an, ab welcher Zeile Sie ändern wollen. SaER 
2.2.Worttausch 
Sie können den Text nach einem bestimmten Wort durchsu- 
chen und durch ein anderes ersetzen lassen. Der Computer 
fragt Sie nach jedem gefundenen Wort, ob Sie es ändern wol- 
len. 
2.3.Text löschen 
Identisch mit Punkt 1.4. 
3.Profiprint laden 
Um einen Text auszudrucken, benötigt man das Programm 
Profiprint. Dieses wird in der nächsten Ausgabe veröffentlicht. 
4.Bildschirmausgabe 
Über diesen Punkt können Sie sich eine Übersicht über Ihren 
Text verschaffen. Es wird neben dem Text eine Zeilenmarkie- 
rung ausgegeben. (Diese Funktion ist auch mit F3 erreichbar.) 
9.1.Text vergleichen 
Der im Arbeitsspeicher befindliche Text wird mit dem gleichna- 
migen auf Diskette verglichen. 

Diese Funktion ist auch hervorragend geeignet, um sich ei- 
nen auf Diskette befindlichen Text anzusehen, ohne den gera- 
de bearbeiteten zu löschen. Der Computer druckt nämlich alle 
Zeilen des Textes aus, die nicht mit dem Text im Speicher über- 
einstimmen. Nach jeder Zeile ist eine Taste zu drücken. 

F1 bricht diesen Vorgang vorzeitig ab. 

5.2.Text umbenennen 

Entspricht dem RENAME-Befehl der Floppy. Man kann einem 
auf Diskette befindlichen Text einen anderen Namen geben. 
5.3.Text löschen 

Entspricht dem SCRATCH-Befehl der Floppy. Ein Text wird von 
Diskette gelöscht. 

5.4.Text laden 

Ein Text wird von Diskette geladen. Sie haben dabei die Wahl 
zwischen: 

9.4.1.Text löschen und neuen Text laden 

Der Arbeitsspeicher wird zuerst gelöscht, und dann der ge- 
wünschte Text geladen. 
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5.4.2 Text hinter alten Text laden 

Der zu ladende Text wird an den Text angehängt, der im Ar- 
beitsspeicher steht. 

5.5 Text speichern 

Der Inhalt des Arbeitsspeichers wird auf Diskette abgelegt. 
5.6.Inhaltsverzeichnis 

Es wird dabei nicht das gesamte Directory der Diskette ausge- 
geben, sondern nur alle Texte mit Namen, Datum der Eingabe, 
und der persönlichen Kennung, die verwendet wurde. (POKE 
930...) 

Dabei ist wichtig, daß man nur auf seine eigenen Texte zugrei- 
fen kann. 

6.Rechnen 

Hier ist ein kleiner Taschenrechner eingebaut. Die Rechener- 
gebnisse werden in drei Variablen gespeichert, und können im 
Text verwendet werden. 


Textvariable 


7Nariablen 

Die Arbeit mit Textvariablen ist eine der ganz großen Stärken 
von Hypra-Text. Wenn Sie einen Text schreiben, in dem zum 
Beispiel sehr oft das Wort »Computer« vorkommt, dann spei- 
chern Sie dieses Wort einfach in einer der 50 (fünfzig!) Textva- 
riablen und wählen bei der Texterstellung diese Variable durch 
» @ «und einer zweistelligen Variablennummer an. (Aus Varia- 
ble 1 wird O1 usw.) Hypra-Text ersetzt diese Variablennummer 
nach dem nächsten RETURN automatisch durch ihren Inhalt. 
Voraussetzung ist allerdings, daß Sie mit Punkt 7.3. diese 
Funktion aktiviert haben. 

len zeigen 


of nhait aller fünfzig Variablen wird auf dem Bildschirm aus- 


gegeben. Durch beliebigen Tastendruck können Sie weiter- 
blättern. 

7.2.Variablen eingeben 

Der Inhalt einer Variable darf maximal 40 Zeichen lang sein. 
7.3.Variablen an 

Damit wird Hypra-Text mitgeteilt, daß man mit Textvariablen ar- 
beiten möchte. 

7.4 Mariablen aus 

Die Variablenfunktion wird ausgeschaltet. 

7.5.Variablen in Text umwandeln 

Man hat zum Beispiel einen Serienbrief erstellt. Für die Adres- 
se wurden Variablen verwendet. Diese sollen erst später 
durch einen entsprechenden Inhalt ersetzt werden. 

Man läßt also bei der Texterstellung die Variablen ausge- 
schaltet (7.4.), und speichert den Text. Später gibt man unter 
Punkt 7.2. zum Beispiel eine bestimmte Adresse in die Varia- 
blen ein. Dann wählt man Punkt 7.5. Hypra-Text ersetzt jetzt die 
Variablen durch Klartext. 
7.6.Variablen in Textspeicher schreiben 
Wenn Sie eine Anzahl von Variablen erstellt haben, so möch- 
ten Sie diese natürlich zur späteren Verwendung speichern. 
Dieser Menüpunkt schreibt den Inhalt der Variablen in den 
Textspeicher in die Zeilen 1-50. Von dort aus können Sie die 
Variablen .dann wie einen normalen Text speichern. 

7.7 Textspeicher in Variablen schreiben 

Um einmal definierte Variablen später wieder verwenden zu 
können, laden Sie den unter 7.6. gespeicherten Variablentext 
in den Arbeitsspeicher und rufen dann diesen Punkt auf. 
(Variablen anschalten nicht vergessen!) 

7.8.Variablen aus Dateiverwaltung 

In einer der nächsten Ausgaben wird eine Dateiverwaltung 
veröffentlicht. Mit diesem Menüpunkt können Sie Daten aus 
der Dateiverwaltung in Hypra-Text übernehmen. Genauere An- 
gaben folgen. (Oliver Fendt/ah/tr) 
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78 
71 


72 
73 
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1 
2 
3 
4 
en 
& 
7 
8 


G0TO 18 
IF PEEKt198) >28 THEN GET A$: RETURN 
SOSUB 38688:60T0 1 
PRINT" {4DOWN,SPACE}3+ BITTE WARTEN + 
ICH{ZSPACE3A R BE I T E{2SPACEY+ 
“zZRETURN 
FOKE 908,8:POKE 918,38:POKE 922,11: 
POKE 917,36:POKE 924,8: A$="":RETURN 
SYS 59176, A$,A$:F=PEEK (913) :RETURN 
G0TO zaamı 

G0T0 22088 

GOSUB Z1WBB:POKE 658,128:POKE 2,18 
4 

GOSUB 48288 

PRINT:L$=A6$ 

KL=1:PRINT CHR$(14) 

DIM A$ (608) : AN=D: MAX=602 

PRINT" {CLRY"; PT$z " <DOWN}" 

G0T0 188 
A$=LEFT$(A$,LEN(A$)-1) : RETURN 

IF RIGHT$(A$,1)=" "THEN GOSUB 39:6 
0TO 31 

RETURN 

AF=LEFTS$ (AST) ,„LEN(A$S(T))—-1) :RETUR 
N 

REM ** UNTERPROGRAMM ** 
PRINT:FRINT"SEBEN SIE EIN,VON WELC 
HER ZEILENNR (6SPACE) (B=ANFANG) " 
INPUT V:IF V=B THEN V=-1 
PRINT"SEBEN SIE EIN,BIS ZU WELCHER 

ZE ILENNR {SSPACE > (B=ENDE) " 

INFUT B:IF B>MAX THEN PRINT"ZU GRO 


S5 :":60T0.74 
IF B=B °THEN B=AN 
RETURN 


PRINT" {HOME, 19DOWN}" RETURN 

PRINT LEFTS (A6$, ME}: RETURN 

GDSUB 88: FOR I=1 TO 4:G0SUB 98: NEX 
T:GOSUR 88: RETURN 


188 PRINT" {CLRY";FT$;:CLOSE 2:CLOSE 1 


18 


102 


183 


184 
1905 


197 
197 
118 


11 


112 


114 
115 
116 


128 
125 


158 
152 
154 
155 


156 


153 


145 


14 


148 
1497 
158 
154 


15 


1565 


ER 
17 


28 


328 





0 


S:CLOSE S5:POKE 198,8: BA-B: DR=B:BR 


=B:SP=® 

1 IF AN/MAX>@.7 THEN Bi$=" {RVSON}"+ 
STR& (INT ( (AN/MAX) *#1BB))+" % VOLL 
111 ZRVUOFF}":X=FRE (9) 
IF AN/MAX>B8.7 THEN B2$#=" {RVSON}LS 


= SPEICHERN {RVOFF 3": B3$=" {RVSON 
>RCHTUNG {RVOFF }":SP=1 

V£(50)=Df: Vs (47) =BA$: V$ (45) =STR$ ( 
RR) :V$ (45) =STR$ (RR+RR* (MW/1B0B) ) 

v5(44)=STR$ (RR#{MW/1BR) ) 

FOKE 54296,B:IF PEEK(1922)=20B TH 

EN AM=2 

PRINT" {HOME}";PT#$; 

FOKE 53255,27 

PRINT" {DOWN ,2SPACE}BSTUM: "sD# 

1 GOSUB 388: FRINT" {HOME ,SDOWN}" 
PRINT". z{iSPACE,RVSON?SYSTEM{4SPAC 
E,RVOFF ,SFACE3: ";Bi$ 
FRINT" {SPACE ,RVSON}EMPFEHLUNG {R 
vVOorFF, SPACEI: ";B2$ 
PRINT" {SPACE ,RVSDN, 1BSPACE,RVDF 
F,SPACE}: ";B3# . 

PRINT" {DOWN,SPACE}Z TEXT NAME {2SF 
ACE’=:";T1$ 
PRINT" = BLATZ {6SPACE3= "3 MAX-ANZ " 
ZEILEN FREI" 

REM *#- MENU ** 

PRINT" {2DOWN „SRIGHT 3—1- {2SPACE}IE 
XT ERSTELLEN" 

PRINT" {SRIGHT}-2-{12SPACE}TIEXT AEN 
DERN" 

PRINT" {SRIGHT 3-37 {ZSPACE?PROFIPRI 
NT LADEN" 
PRINT" {SRIGHT }-4- 12SPACE}BILDSCHI 

. RMAUSGABE" 

PRINT" £{SRIGHT 3-5-{2SPACE}>ARBEITEN 
MIT DISKETTE " 
PRINT" {SRIGHT }-6- 1{25PACE}";FU$ 

7 PRINT" {SRIGHT ?-7- £2SFACEFARBEITEN 
MIT VARIABLEN" 2 

PRINT" {2DOWN,ZRIGHT}BIE EUNKTIONS 

TASTEN" 

7 PRINT" £2RIGHT}?Fi1= EINGABE F3=BILD 

SCHIRMAUSGABE" 

PRINT" {2RIGHT}?FS5= ENDE {SSPACE}"; 
IF SP=1 THEN GOSUR 359521 

GET A$:IF A+=""THEN’ 105 
IF A$s=" <FS5S}3"THEN 79828 

5 IF As="{iF1>"THEN 1815 

IF As="{iF5}"THEN 8808 

7 IF VAL{tA$)<1 OR VAL(A$)>B THEN 15 

ö 

7 X=VAL(A$)SDON X GOTO 12909,2008,561 

00,710B,5020 ,?2000,9700 

BD 60TO 188 

B RETURN 

B REM ## BS AUFBAU *#* 
i1 IF BA=1 THEN RETURN 

8 Als=" x x x 

KEIERERURS" 

AZE=" FARHARKERKKRRKKHRHHHIHRHHRTH 


Sa 


a a ne 


<178> 
<214> 
x207> 


<158> 


<B88> 
<847> 
<117> 
<@14> 


<153> 
<B16> 
<a87> 
<087> 
<259> 
242> 
el; 
<148> 


<074> 
<827? 


<122> 
<158> 


<152> 


-<146> 


<B42> 
<aSs1?> 
<251> 
<137> 
<178> 
<219> 


<152> 


<Q084 > 


<874> 


<141> 


<244> 
<2053> 


<212> 
<215> 
<128> 
x252> 
<218> 
23537 
<207> 
<B&s9> 
<179> 


<144> 
<a27> 


<209> 
<249> 
<212> 
<159> 


<B87> 
<B88> 


<158> 
<289> 


<295> 
<B51> 
<ı108> 
<153> 
<2D12> 


<BIS6> 


<145> 
<B85> 


<B48> 


<128> 
<064> 


<aS1> 
<154> 


<817> 





Bild 1. DATA 


”[Commodore-E}”, 
102,0,60,102,102,102, 
60,0 definiert das. 
Bildschirmzeichen 
»O«, 
ERRERRERH <208> 
3SIQ A3s=! TEREREREEEuE 
EREREREREN" <845> 
340 Ads=" -{SSRIGHT}Z2" <2153> 
Sg PRINT" {HOME ,ZDOWN>"sPRINT Al$:PRI 
NT A4F:PRINT A4#: PRINT A4F:PRINT 
A2S$ <1B4> 
562 PRINT A4#: PRINT A4F:PRINT A2# <18aB> 
378 FOR T=1 TO 9:PRINT A4$:NEXT: PRINT 
A2$ <145> 
388 PRINT A4#:FPRINT A4$:PRINT A4$:PRI 
NT ASS; <173> 
499 BA=1:RETURN <B46> 
1B8@ PRINT" {CLR}";PT$ <116> 
1821 PRINT" {HOME „2DOWN,RVSON,SPACE}* 
* TEXTPROGRAMM {SSPACE?* #{12SPACE 
3E&INGARE {2SPACE3* #{SPACE ,DOWN,R 
VOFF „2DOWN}" ; =: TA=B: TA$="" 1773 
iB23 PRINT" {RVSON}=1= (2SPACE}+EINGABE 
DES IEXTES" <B78> 
iBß4 PRINT"=2= EINGABE DES TEXTNAMES" <136> 
12085 PRINT"=3= EINGABE UEBER AASKE" <B58> 
1087 PRIN]"=9= JEXT LOESCHEN" <B85?> 
1RB8 PRINT"=5= DEN TEXT AUSFUELLEN":P 
RINT"=5= EINGABE TABULATORZEILE" <B15> 
10887 GOSUB 1 <182> 
1B1B IF A$="B"DOR A$s=-"{F13>"THEN 1808 <DAB> 
1811 BiF="AENDERN [21" :B2$=" SPEICHERN 
[51": T=VAL(A$) <114> 
1813 IF T=@ THEN 19897 <241> 
1814 ON T GOTO 1815,1859,339028,1300,9 
400,1932,188 <146> 
1815 PRINT" {CLR3"zPTS$: PRINT" {HOME, 2DO 
WN,RVSON,SPACE># * (2SPACE}IEXTPR 
GRAMM ASPACE I # {25PACE}EINGABE 
{25SPACE}* *{SPACE ,DOWN,„RVOFF}"35: 
TA=2 <178> 
1814 Bi1$&="ARENDERN {SSPACE}E2]I" <242> 
1817 B2$= Bee 33 <237> 
1218 nes <128> 
1248 er "K1 Se RVSONITASTEHRVOFF; SPAC 
EIF7=HELR{LISPACEIFS=ZEILE HOCH" 
THEN 1958 <2264> 
1845 Ki1$=" {RVSON}TASTEN{RVOFF, SPACE}IF 
7=HELP{11SPACE}FS=ZEILE HOCH" <Q41> 
1847 K2#="HDOME = TABULATOR {4SPACE}RET 
URN=ZEILE RUNTER" <151> 
1048 KI$="ERSR HOCH = HORT VOR {A4SPACE 
; >:CRSR => RECHTS" <Bil> 
1849 K4$="CRSR RUNTER=HORT ZURUECK:CR 
SR <= LINKS"=RETURN <243> 
1259 Ki1*="<RVSONFEUNKTIONST. {RVOFF,SP 
ACE}FI=ENDE : F2=EINFUEGEN" <131> 
1851 K2$="F3= ZEILEN LOESCHEN : F4=EL 
DOCK COPIEREN" <Baa5> 
1852 KIs="F5=ZEILE HOCH{7SPACE}: Fa=5 
EITE +/-" <113> 
1053 K4$=" {RVSON>F7=HELB{SSPACE „RVOFF 
‚iBSPACE}=: F8=EBLOCK LÄADEN":RETUR 
N <142> 
1188 FOR I=68 TO MAX <a71> 
1118 GOSUB 1498 <114> 
1128 IF LEN(A$(I+1))<M8 THEN RETURN <a97> 
1158 NEXT>RETURN <sa5Ss> 
1508 GOSUB 1521:G0T0 19898 <174> 
1581 PRINT“ {CLR}"3PT$;z " <DOWN,RVSON,1® 
SPACE}IEXT LOESCHEN{17SPACE}" <146> 
1582 PRINT" XDOWN?>BIST DU SICHER? [LJ/t 
N)]J ":GDSUB 1:IF As<>"IJ"THEN 108 <979> 
1585 PRINT" {2DOWN}"=:FOR T=1 TO MAX:PR 
INT" {UP}3"3 TzAF(T)=""=NEXT <0S6s> 
1512 AN=-B: RETURN <165> 
1408 B=LEN(A$S(I)):FOR A=M8B TO 1 STEP- 
1 <B25> 
1418 IF MID$(A$<(I),A, 1)=" "OR MID (A#$ 
(IT) ,A,1)= "{SHIFT-SPACE3"THEN 145 
1} <129> 
142B NEXT=:PRINT"ZEILE ZU LANG: FEHLER" 
: RETURN ” <Q24> 
14358 A$(I+1)=RIGHT$(AS(I) ,B-A)+" "+A$ 
(I+1)zA$(I)=LEFT$(AFCTD) , AM) <B45> 
1458 RETURN <2358> 
1448 PRINT" {CLR>"=:FOR T=QB TO AN:PRINT 
AS(T) :NEXT:PRINT" {Z2UP}F" <B07> 
1478 RETURN <202> 
1858 PRINT" {CLR}3";PT$ x186> 
1851 INPUT"MAXIMALE ZEILELAENGE (39) " 
;MB:G0OSUB 18532:60T0 1828 <x275> 
1852 M8=M8+2: IF M8S<iB THEN M8=357 <B14> 
18535 PRINT" {CLR}Y";PT$=:PRINT"EINGABE IL 
ABULATORZEILE"=PRINT"!=START +=I 
AB.3ZTUOF -=NICHT <2358? 
1854 T7$=LEFTE(T7EF,LEN(T7$)—1) <B883> 
1835 A$+=LEFT# (T7#,M8) :G0OSUB 9:T7$=A$' <QO29> 
18498 MB=M8-2: T7£=LEFT$(T7$+"--------- ; 
„M8-1) <191> 
1841 FOR T=1 TO LEN(T7$): IF MIDS(T7$, 
T,1)="!"THEN CB=T <107> 
1842 NEXT: T7$=T7$+"!":POKE 917,M8 <D57> 
1845 RETURN <125> 


1858 


2028 
zu@1 


2222 


2003 
2085 
2885 


2888 
2887 


2345 
2350 
2356 
2520 
2518 
2511 
2512 
25132 
2520 
25382 
2548 
2558 


256BD 
2800 


2618 
2628 
2630 
2640 
2858 


2900 


2818 


2828 


2 FRINT"Fö= 


PRINT" {CLR, 4DOWN}TEXTNAME": A$=T1 
$:G0OSUB 9: T1$=A$:60TO 1098 
PRINT" {CLR}";PT$ 

PRINT" {HOME „ZDOWN ,RVSON,SPACE3+ 
+ TEXTPROGRAMM {SSPACE}+ +125PACE 
3AENDERN {2SPACE}+ +{SPACE,DOWN,R 
VOFF}>"; PRINT" DOWN, RVSON} BENDER 
N [1 J{RVOFF}" 

PRINT" {2DOWN „2SPACE?>BS MENU”=SPR 
INT" £DOWN, 2SPACE}>1< JEXT AENDER 
N" 

PRINT" {DOWN,2SPACE}>2<X HORT TAUS 
CH „ 

PRINT" (DOWN, 2SPACE}>3< TEXT LOES 
CHEN {Z2DOWN}" 

GOSUB 1 

IF A$="B"OR At="{F1>"THEN 198 
Bi$="SPEICHERN [5]J" :B2£=" ANSEHEN 
{SSPACEFEFSI" 2 B5$=" HILFE {SSPACE} 
ERZI” 

T=VAL(A$): IF T<1 OR T>3 THEN 288 


& 

UN T GOTO 2812,2709,1508 

GOSUB 88:PRINT" DB = ENDE : 1 = A 
NFANG" 

INPUT" {DOWN}AB ZEILE"; 
A=-1 THEN A=AN 

GOSURB 1946 

A=A+1:IF A>AN THEN AN=A 

IF A<1 THEN A=1 

Y=T:A$=A$(A) 

EE=1:A$=A$ (A) :G8=A:GOSUB 358222 
IF U9=1 THEN A$tA+1)=LEFT$(AS$,C 
B-1)+R$+" "+AF(At1):U9=2 

AS(A)=AF: IF LEN{A$(A))>MS THEN 2 
2848 

IF A$(A)=">"THEN A$(A)="" 
PP=A: IF F=5 THEN 2489 


AzA=A-1:IF 


2 IF F=7 THEN GOSUB 1849:60T0 22598 


IF IN=1 AND F<>B THEN IN=B:60SUB 
2568: IF F=1 THEN F=8 

IF F=1 THEN EE=9:60T0 188 

IF F=& THEN 2288 

IF IN=1 THEN GOSUB 23558 

IF F=2 THEN 2588 

IF F=4 THEN 2808 

IF F=8 THEN 2188 

IF F=5 THEN A=A-1:60T0 280538 

A$=A$(A):Y=T:GOTO 29828 

PRINT" {HOME „2DOWN,RVSON,SPACE}>* 
* TEXTPROGRAMM{4SPACE3*= * BLOCK 
LADEN # #" 

G60SUB 95:G0SUB 4:FOKE 929,22 
PRINT"NAME DES BLOCKES":6DSUB 5: 
IF F=1 THEN 2220 


CLOSE 2:CLOSE S:0OPEN 2,FA,15: DPE 
N S,FA,2,A#+",5,R":605SUB 34208: 1 
F EN{>@ THEN 2108 
INFUT#5,2:G0SUB 25538 

FOR T=1 TO Z:G0SUB 354188:G0SUR 5 
4808: IF As=">"THEN As="" 
A$(PP+T)=A$:NEXT:ELOSE 2:CLOSE 5 
:A=A+Z7:605UB 2589:G0T0 2928 
GOSUB 95 | 
PRINT"FS= SEITE + " 

SEITE -{4SPACE}" 

PRINT" {DOWN}BITTE WAEHLEN" 

GOSUR 1:IF As="{F13"THEN A=A-1:6 
0TO 2028 

IF Ast=" {F5S5>"THEN A=A+1B:60T0O 282 


® 4 
IF A$=" {Fö>"THEN A=A-12:60T0 222 
1%] > 


GOTD 2218 

Z=1:605UB 253B 
AFLAFL)I)=SRIGHTF (ASIA) „LEN(AFCAYI— 
PEEK (925) ) :CC=999: IN=1 
AF(A)I=SLEFTF(AFLAN ,PEEK (925) ) 

IF LEFT£(AF(A+1) ,1)=" "THEN A$(A 
+1)=RIGHT$ (A$ (A+1) „LENCAS(A+1))- 
1):G60T0 2348 
A$(A)=A$ (A) +" {SHIFT-SPACE}": 
1:60T0 2342 

Z=1:G60SUB 2538 

PRINT" {HOME „2DOWN,RVSON}!!! 
PROGRAMM !!! AUFSCHIEBEMODUS 
":RETURN 

PRINT" {HOME „2DOWN,RVSON,SPACE}* 
* TEXTPROGRAMM{4S5SPACE}#* * AUFSCH 
IEBEN * *":60SUB 25198:60TD 2928 
GOSUB 95 
PRINT"FS = 
= BIS [F1]" 
GOSUB 1:IF A$="XFi1>"THEN 25688 

IF As="{FS}"THEN 23500 
FRINT"HIEVIELE ZEILEN"=:INPUT Z:P 
F=PF-1:A=A-1 

FOR D=SAN+Z TO PP+Z STEF-i 
AF(D)=AF(O-Z)I :NEXT 

FOR O=PP+1 TO PF+Z:A#(Q0)="":NEXT 
:AN=AN+Z 

PRINT" {HOME „?2DOWN, RVSON,SPACE}+ 
JEXTPROGRAMM + EINGABE / AENDERN 
+ {2SPACE}" RETURN 

PRINT" {HOME „2DOWN,RVSON, SPACE>* 
* IEXTPROGRAMM{4SPACE}* * LDESCH 
EN{SSPACE}* #*# " 

GOSUR 975 j 
PRINT"HIEVIELE ZEILEN"=: INPUT Z 
FOR O=FF TO AN+Z 

AF(O)SAS(O+Z) NEXT 

FOR D=AN-Z TOD ANZ: AS(O)="":NEXT:A 
N=AN-Z:GOSUBR 25548: A=A-1:60T0 282 
D 

PRINT” {HOME ,2DOWN,RVSON,SPACE}* 


=A- 


JEXT 


X - ZEILEN{2SPACE>FS 


"# TEXTPROGRAMM {4SFACE>* = CDPIER 


EN{4SPACE># #":7=0:71=B 

GOSUR 95:PRINT"MARKIEREN SIE DAS 
UNTERE ENDE MIT [FS]J" 
PRINT"LEF1J = ENDE {SSPACE}:= {2SPAC 
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<a94> 


<188> 


<B6D> 


<a71> 


<002> 


"<B57> 


<163> 
<a42> 


<251> 


<145> 
<109> 


<209> 


<8797> 
<1953> 
<19B> 
<859> 
<835> 
<151> 


<252> 


<B2B> 
<205> 
<a71> 
<845> 


<148> 
<121> 
<198> 
<B95> 
<9797> 
<147> 
<814> 
<89?1> 
<227> 


<B74> 
<111> 


<185> 
<281> 


<187> 
<105> 
<149> 
13973 
<259> 
<170> 
<235> 
<248> 
<B9B> 
<118> 
<153> 
<2208> 
<a59> 
<819> 
<B48> 
<B12> 
<947> 
<111> 


<875> 


<974> 
<950> 


<172> 
<148> 
<217> 
<Da2> 


<122> 
<195> 


<159> 


<BDöS> 


<186> 
<152> 
<1935> 
<285> 
<sB25> 


<211> 


<178> 


<294> 


”, 


2825 
2829 
28538 
2831 
2832 
2855 
2854 
2835 
2856 


2848 
2858 


28608 
2881 
2886 
28987 


2898 
2988 


2981 
2982 
2905 
2918 
2928 


2921 
2925 


2950 
2935 


2957 
29748 
2941 
2942 
2945 
2946 


2950 
2968 


2978 


4008 
4001 


4002 
4811 
4828 
4052 


492408 


49050 


4108 


4118 
4120 


4158 


4168 
4200 
4218 
4220 
4250 


44997 
4590 
4501 
4510 
4528 


4522 
4525 


4558 
4551 
4552 


4533 
4534 


4556 
4537 


45358 


4557 
4542 
4544 
4546 


E}LFSI = MARKIEREN" 

PRINT"EFSJ = HOCH{SSPACE}: (2SPAC. 
E)LF73 = RUNTER" 

z=1 

IF Z+PP<1 DR Z+PP>MAX THEN Z=1 
G9=PP+Z-6:60SUB S9725:FOKE 781,1 
i1:POKE 782,9:SYS 58636 

PRINT" {RVSON}"zA$(PP+Z) ;" {RVOFF} 


GOSUB i:IF A$s="{F1}"THEN 2038 

IF As=" <F5S}Y"THEN Z=7Z-1 

IF At="<F7}3"THEN Z=7+1 

IF A$s=" <F3}"THEN 2858 

60T0 2858 

IF Z1i=8 THEN Z1=2:60SUB 88:PRINT 
"MARKIEREN SIE WOHIN DER BLOCK S 
OLL{4SPACE}":GOTO 2858 

Z2=PP+Z-1 

69=PP+Z-5:605UB 30705:POKE 781,1 
1:POKE 782,8:5YS 598536 

FOR T=PP TO PP+Z12:A$t((T+1)-PP)+ 
Z2)=A$(T)=NEXT ; 

IF AN<C(T+1)-FP)+Z2 THEN AN=((T+ 
1)-PP)+Z2 f 
GOTO 7Bu8B 

PRINT" {CLR„SDOWN}NACH WELCHEM HO 
RT SOLL SESUCHT WERDEN": A$="" 
GOSUB 9:C#=At: IF F<>B THEN 108 
PRINT" {CLR,3DOWN>HELCHES HORT SO 
LL DAFUER EINGESETZT {SSPACE}WERD 
EN":60SUB 9:Bf=A$ 

PRINT" {CLR}";PT$;z * (DOWN, SSPACE} ( 
J) = AENDERN {2SPACE} (N) =LASSEN {35 
DOWN}" 
Li=LEN(C$) :L2=LEN (BF) :LS=L2—-L1 
FOR T=1 TO AN+1:X=8:6=-1:C0C0=B:605 
UB 5984082 

IF CC=999 THEN GOSUB 2958: CC=B 
X=LEN(AF(T)): IF X=Q THEN NEXT:GO 
TO 128 

FOR G=1 TO X 

IF MID$(A$(T) ,„G,LIi)<>C$HTHEN NEXT 
:NEXT:GOTO 108 

PRINT" {HOME ,&DOWN}" ; A6$; Ab$; Ab$ 
PRINT" {HOME ,4DDOWN}" zZ RIGHT$ (" £53SP 
ACEI"+STRE(T),3)z;" "zLEFTSCASCT) 
6-1) +" {RVSDNY"+C$+" {RVOFF}>"; 
PRINT RIGHTS (AF(T), „LEN (AS(TII-6- 
LEN(CH +1) 

GOSUB 1:IF At="N"THEN 2958 
AS=LEFTFLA$(T) „G-1) +B$+RIGHT$(A$ 
(T) „X-1G+L1)+1) :X=X+L3:GDSUBR 594 
BB: At(T)=A$ 

IF CC=79797 THEN GOSUB 2968 


NEXT:NEXT:60TO 188 
ASCTISASSEASCTLI=SREH" "+HAS(CT+HI1): 
IF LEN(A$(T+1))<MS THEN RETURN 
Z=1:PP=T+1:605UB 2550: A$=A$(T+1) 
:G0OSUB SBABB: A$(T+1) =A$:A$(T+2)= 
R$: RETURN 

PRINT" {CLR}?";PT$ 

PRINT" {RVSON,SPACE}+ VARIABLEN A 
US DER DATEIVERWALTUNG {2SPACE}+ 


PRINT" <2DOWN}-1- NACH NUMMER" 

PRINT" {DOWN}-2- NACH NAMEN" 
GOSUB 1:IF A$="{F1>"THEN 108 

IF A$="1"THEN INPUT“ (DOWN> NUMMER 
“:Y:G60T0 4499 

PRINT" {CLR}"3PT$:PRINT" (3DOWN>NA 
ME": 60SUB 4:60SUB S5:B$=A$: IF F=1 
THEN 192 

GOSUB 4188: IF F<>999 THEN 4499 

G0T0 4239 

CLOSE 2:0PEN 2,FA,15:0PEN 5,FA,2 
‚"AD,S,R":60SUB 342@@: IF ER<>@ T 
HEN 198 

GOSUB 34188: INPUT#5,A 

IF LEFT$(A$,LEN(B$) )=B$THEN CLOS 

E 2:CLOSE 5: Y=A:RETURN 

IF(ST AND 64)=44 THEN CLOSE 2:CL 

0SE 5:60T0 42088 

60T0 4118 

F=999: PRINT" {CLRY"zPT$ 

PRINT" {2DOWN} DATENSATZ ";B# 

PRINT"NICHT VORHANDEN. "RETURN 
PRINT" {2DOWN>BITTE LF1] DRUECKEN 
":60SUB 1:G60T0 188 

GOSUB 4508:60T0 4568 

ELOSE 2:CLOSE 5 

HB=INT (Y/256) :LB=Y-HB#256 

OPEN 2,FA,15:0PEN 5,FA,2,"ASALEM 
„L,"+CHR$ (254) 

PRINT#2, "P"+CHR$ (2) +CHR$ (LB) +CHR 


$ (HB) +CHRF$ (1) 

INPUT#2,EN 

IF EN<>B THEN PRINT" {RVSON}ERROR 
- EALSCHE DISKETTE !!!"zRETURN 


B=20:G0SUB 4720:60SUB 4759: VF(1) 
=B$ 

B=28:60SUB 47BB:GOSUB 4750:V$ (2) 
=B$ 

B=28: G0SUB 4788:GDSUB 4750: V$ (5) 
=B$ 

B=4:60SUB 4708:V#(4)=B# 

=28: G0SUB 47082:G0SUB 4758:V$(4) 
=VE(4)+" "+B$ 

B=16:60SUB 4799: V$(5)-B$ 
B=2:GDSUB 4798: V£(&6)=B$+".":60SU 
B 4700: V$(&)=V£ (6) +B$+r".":B=4:60 
SUB 4788 

vE#(6)=-V#(6) +B$:B=1D: GOSUB 4708:V 
£(7)=B# 

B=2:50SUR 4729: V$(8)=-B$ 
B=10:G60SUB 4700: V$(9)=B# 
B=190:G0OSUB 47908:V#+(10)=B# 
B=29:G0SUB 4782:G0SUB 4750: V$ (11 


<116> 
<216> 
<B52> 
<2527> 
<a76> 
<B82> 
<214> 
<@24> 
<122> 


<B24> 
<218> 


<148> 
<@79> 
<126> 
<B43> 


«257> 
<084> 


<142> 
<876> 
<B4&> 
<222> 
<247> 


<a20> 
<a32> 


<152> 
<118> 


<BD5S> 
<089> 
<899> 
<1535> 
<225> 
<151> 


<088> 
<112> 


. £<250> 


<250> 
<BöB> 


<B74> 
<191> 
<882> 
<2532> 


<2435> 


<B15> 
<159> 
<BB6> 


<238> 
<B22> 


<Q89> 


<821> 
<188> 
<125> 
<B82> 
<B98> 


<1537> 
<155> 
<«285> 
<141> 
<165> 


<209> 
<1808> 


<095> 


<2534> 


<B43> 


<198> 
<185> 


<220> 
<183> 


<B435> 


<255> 
<Bsl> 
<BB1> 
<284> 





4548 
4549 


4558 


4555 
4568 


4561 
4565 
4599 
4708 
4740 


4749 
4750 


4768 


SanD 
sau1 


5010 


59028 
5s@21 
5925 
s0580 
5240 
Ssa41l 
5042 
5945 


5958 


5421 


5402 
5405 


5494 
5405 
5407 


5408 
5410 
5412 
S415 
5415 
5428 


5588 
5581 


5592 


S5ßS 


s5ie 
5520 


5521 
5525 
5527 
5529 
5530 


5532 


)=B$ 

B=20: G0OSUB 4700: V$(12)=B$ 

B=29:GOSUB 4709:60SUB 4758: V$(13 
)=B$ 

E=20:GOSUB 4700: G0SUB 4759: v$(14 
)=B$ 

CLOSE 2:CLOSE 5:RETURN 

PRINT" <CLR}";PT$: PRINT" DATENSATZ 
"V8(2) 

IF BAS<>V$(B)AND PR=B THEN V$(7) 

="PASSWORT GESCHUETZT" 

PRINT:FOR T=1 TO 14:PRINT V$(T): 

NEXT=:PRINT" (DOWN}BITTE [Fi DRUE 

CKEN":GOSUB 1:G60T0 188 

G0T0 188 

POKE 917,B-1:POKE 915,5:5YS 5818 

2,B$ 

IF RIGHT$(B$,1)=" "THEN B$=LEFT$ 
(B$,LEN(B$)-1):60T0 4749 

RETURN 

AS=LEFT$(B$, 1): IF ASC(AF)<65 OR 

ASC(A$) >70 THEN RETURN 

B$=RIGHT$ (B$,LEN (B$) -1) :B$=CHRE ( 

ASC (A$) +32) +B$: RETURN 

GOTO 5508 

PRINT" {CLRI"sPT$: PRINT" {2DOWN? LA 

DEN VON DISKETTE" 

PRINT" {2DOWN,SSPACE>-1- IEXT LOE 

SCHEN UND NEUEN {17SPACE}IEXT LAD 

EN “ 

PRINT" {DOWN ,SSPACE}-2- HINTER AL 

TEN IEXT LADEN": 

PRINT" (DOWN, SSPACE}-3- LISTINGS 

LADEN" 

PRINT" {DOWN} BEFEHL"; 

GOSURB 1 

IF A$="<Fi}"THEN 108 

Bi$="ANSEHEN LF3J" :B2$=" AENDERN 
[27" 

IF A$="1"OR A$="Z"THEN GOSUB 150 

S5:60T0 5058 


IF A$="2"THEN 5950 

G0TD 5258 

PRINT"-"3A$; "-":I=@: IF A$="3"THE 
N 1=999 

PRINT" {CLR,SDOWN}NAME DER DATEI" 


sA$="":G0OSUB 9: Ti$=A$: B$=A$: IF F 
=1 THEN 192 

IF LEFT$(A$S,i)<>"E@"THEN 5955 
AS=RIGHT$ (AF,LEN(AF) -1): T=VAL (A$ 
I: A$=V$ (50+T) 

IF T>B OR B=2 THEN 596B 

GOTO 5128 

PRINT" {HOME „SDOWN}>AUFZEICHNUNGSD 


IF PR<>L THEN A$=">"+BAF+AF+BE 
IF PR=1 THEN Af=B$# 

REM 

OPEN 2, RRONLINGERR: 
GOSUB 342080 

OPEN 5,FA,5,"B: "+A$+",5,R" 

AX=9: GOSUB T4BBU: IF EN=42 THEN 1 
[4] 

IF 1=999 THEN 5208 
INPUT#5,AXsFOR T=1 TO AX 

REM 

GDSURB 34108: A$(T+AN)=SAS: IF A$(T+ 
AN)=">"THEN AS(T+AN)I=" " 

GDSUB 34008 

GET At: IF As="{F1}"THEN CLOSE 2: 
CLOSE 5:G60T0 128 

NEXT 

AN=AN+AX 

CLOSE 2:CLOSE 5:60T0 i98 

REM 

AN=AN+1 

GET A$: IF A$="{Fi}"THEN CLOSE 2: 
CLOSE S5:60T0 128 

GDSUB 34120: A# (AN) =A$: IF ST<S>?64 
THEN 5210 

CLOSE 2:CLOSE 5:6G0TO 1882 

PRINT" {CLR}";PT$=:PRINT" {2DOWN}VE 
RGLEICHEN VON BISKETTE" 
A$=T1$:PRINT"NAME":GOSUB 9:IF F= 
1 THEN 1988 

OPEN 2,FA,15,"I@®":6G0SUB 78 

GOSUB 34088: IF FR<>1 THEN Af=">" 
+BAS+"?77?7777?7"+A$ 

OPEN 5,FA,5, "8: "+A$+",5,R" 

GOSUB 34808: IF EN<>B THEN 108 
INPUT#5,AX=IF B<>B AND AX<>B-V T 
HEN PRINT" ZEILENANZAHL FALSCH" 
FOR T=1 TO AX 

GOSUB 341BB: IF A$=">"THEN As=" " 
PRINT A$:POKE 198,8:WAIT 198,1:6 
ET At: IF At="{F1)"THEN 5428 
GOSUB 34202 

NEXT 

CLOSE 2:CLOSE 5:PRINT"TASTE DRUE 
CKEN":GOSUB 1:GOTO 1BB 

PRINT" {CLR}";PTF 

PRINT" {RVSON,SPACE}+ MENU DISKET 
TEN- OPERATIONEN {9SPACEI+ " 
PRINT" {DOWN,SPACTE}>LADEN {SSPACE}IT 
43” 

PRINT" SPEICHERN £[5]" 

REM 

PRINT" {DOWN „2SPACE}>-8—- NENU" 
PRINT" £2SPACE}-1- IEXT VERGLEICH 
EN" 

PRINT" {2SPACE}-2- IEXT UMBENENNE 
N" 

PRINT" £2SPACE}+-3- IEXT LOESCHEN" 
FRINT" {2SPACE}-4- IEXT LADEN" 
PRINT" {2SPACE}-5-. TEXT SPEICHERN 
PRINT" {2SPACE}—-5- INHALTSVERZEIC 
HNIS" 


x240> 
<228> 


<244> 


<118> 
<175> 


<174> 
<198> 
<196> 
<209> 
<245> 


<255> 
s235> 


<a61> 


<B7D2> 
<226> 


<«225> 


<166> 


<035> 


<167> 
<229> 
<159? 
<169> 


<244 > 


<1957 
<105> 
<«B51> 


sDöä> 


<B15> 
<169> 


<241> 
<155> 
<226> 


<255> 
<135> 
“230> 
<B288> 
<145> 
<B81> 
<181> 


<2537> 
<B41> 
<245> 
<a9B> 


<226> 
<a90> 


<282> 
<842> 
<196> 
<156> 
<182> 
«101> 


<180> 


<127> 
<246> 


<211> 


<858> 
<155> 


<8073> 


<229> 


<252> 


<204> 
<a33> 
<226> 


<077> 
<139> 
<B91> 


<237> 
<244> 


<1335> 
<ao51> 
<058> 


<2358> 
<229> 


<a55> 
<245> 
<258> 
057? 
<151> 


<159> 


55354 
5536 
5558 
5551 
5552 
5555 


5555 
SösB8 


5618 


5633 
5634 
59835 


5648 
5641 
5642 


56453 


5645 


9646 
5647 


5658 


S5sos1 
5652 
5455 
5a56 
5657 


faf=1=7] 
5672 


5708 


5715 
Ss716 
5717 
5718 


5719 
5728 


589D 


5881 


5818 
5811 


s812 
S8135 


5814 


5815 
5816 
5817 


5828 
5821 
58358 
58482 
5841 
5842 
5845 


5846 


5847 
5848 


5849 
5352 


5351 


3852 


5855 
5856 
SBaB 


5865 
5878 
5871 
5872 


IF PR=1 THEN PRINT" {2SPACE}-7- 2 
ISK FORMATIEREN" 

IF PR=1 THEN PRINT" (25PACEI-8- 2 
ISK NAME + 12 AENDERN" 

G0SUB 1 

IF A$="Q"OR A$s="(Fi}"THEN 108 

IF VAL(A$)=® THEN 5588 

DN VAL (A$)GOTO 5408,56598,5728,58 
21 ,6800,5800,5680,5908 

RETURN 

PRINT" {CLRI"zZPT$:PA$="":IF PR=® 
THEN 188 

PRINT" £RVSON,SPACEIBISKETT 
E£2SPACEIEORMATIEREN 
A$="DISKETTEN NAME":GOSUB 9:B$=A 

$:IF F=1 THEN 188 

PRINT“ {HOME ,4DDWN}SCHUETZEN?":A$ 
="N":G0SUB 9: IF As="J"THEN INPUT 
"PASSWORT"; PAS 

IF A$="J"AND LEN(PA$)<1® THEN PA 
$=PAS+CHR$ (D):GOTO 5683 

Afr= „ ILD® 


PRINT" {HOME „4DOWN}DISKETTEN ID{2. 


SPACE}":GOSUB 9: ID$=A$: A$=LEFT$S( 


BER nase en ee 
ID$=LEFT$(ID$+"TE" ,2) 
G0OSUB 3 


OPEN 2,FA,15,"N: "+As+",“"+ID$:CLO 
SE 2: IF PA$=""THEN GOTO 188 

OPEN 15,FA,15,PR$:0PEN 2,FA,2,"# 

PRINT#15,"B-R 2 BD 18 B":PRINT#15 
„"’B-P_ 2 164” 

PRINT#2,CHR$ (B) +CHR$ (DB) +CHR$ (BD): 
PRINT#15,"B-P 2 180":PRINT#2,PA$ 

PRINT#15,"B-P 2 2":PRINT#2,"0"; 
PRINT#15,"B-W 2 8 18 B":CLOSE 2: 
ELOSE 15:60T0 108 

PRINT" {CLR?";PT$#: PRINT" {RVSON,2S 

PACE>+{2SPACE}YL E X T{SSPACEIU M 
BENENNE N{2SPACE}Y+{SSPACE 
t De 

PRINT" {HOME „4DOWN}>ALTER NAME": A$ 

="":560SUB 9: IF F=1 THEN 188 
B$=A$: A$="TTMMJJ" =: PRINT" {HOME ,4D 
DWN>DATUM":GOSUB 7 ' 

C$=As: PRINT" {HOME ,„4DOWN}NEUER NA 

ME":GOSUB 9 

IF PR=1 THEN GOSUB 3: A$s=">"+A$:B 

$=">"+B$ 

IF PR=B THEN GOSUB 3: A$=">"+BA$+ 

DAF+A$: B$=" >" +BA$S+CH+BE 

OPEN 2,8,15,PR# 

PRINT#2,"R: "+A$+"="+B$:GOSUB S48 
88:CLOSE 2:60T0 188 

PRINT" {CLR}";3PT$:PRINT" {RVSON,„4S 

PACE}+{2SPACE}T E X T{ZSPACE>L DO 
E SC HE N{2SPACE}+{SSPACE}" 
PRINT" {HOME „4DOWN>NAME":GOSUB 9: 
B$=A$: IF F=1 THEN 108 
A&="777777?" PRINT" {HOME „4DOWN}’ 2A 

TUM{S&SPACE}":GOSUB 9:60SUB 3 

IF PR<>1 THEN As=">"+BAs+As+BF+ 
IF FR=1 THEN A$=">"+B$ 

OPEN 2,FA,15,PR# 

PRINT#2, "SB: "+A$:CLOSE 2:60T0 18 
1%) 

CLOSE 15:CLOSE 2:0OPEN 15,FA,15,"” 
I":PRINT" {CLR}Y"sPT$ 

PRINT" {CLR?";PT$:PRINT"” {RVSON,„Z2S 

PACE>+ INHALTSVERZEICHNIS DER DI 

SKETTE {2SPACE }+ (25PACE „SDDWN?" 
OPEN 2,FA,2,"#" 

PRINT#15,"B-R 2 8 18 B":PRINT#15 
„"B-P 2 165" 

GET#2,A$: IF A$<>""THEN 5816 

PRINT#15,"B-P 2 180":PA$="":FOR 

T=-1 TO 10:G6ET#2 ,A$: PA$=PA$+A$: NE 
xT 

PRINT"DIE DISKETTE IST GESCHUETZ 
T: SEBEN SIE {2SPACE}>DAS PASSWORT 
EIN" 

INPUT A$: IF A$s<>PA$STHEN CLOSE 2: 

CLOSE 15:60T0 188 

B$="":X=99797:605SUB 5918:X=9: B$="t 

F3}". 

IF At(2)=" INHALT"THEN AN=AN+2: A 
(AN)=IDS+" "+N$:AN=AN+i 

T=-18:5=1:B=® 

GOSUB 5898 

PRINT#15,"U1 2 98";T;S 

v-2 

GET#2, X$: X$=X$+CHR$ (D) : T=ASC (X$) 

GET#2 ,X$:X$=X$+CHR# (D) » S=ASC (X$) 

FOR x=@ TO 7:PRINT#15,"B-FP 2";X* 

32+2 

GET#2,X$,A$: Z=ASC (X$+CHR$ (DB) ): IF 
Z<>B#16+1 AND PR=B THEN 5855 

GOSUB 5898 

IF B=18 THEN B=8: PRINT" {DDWN}BIT 

TE F3 DRUECKEN {DOWN>":WAIT 178,1 
:GET B$:60SUB 5898 

IF B$5="(F1)"THEN 108 

X$=" {WHITE)ISEQR "=:IF Z<>B AND PR= 
1 THEN GOSUB 5878 

IF PR=8 AND Z<>2 THEN PRINT” {WHI 

TE,SSPACE}";B," {LEFT}";FF$:V$£(58 

+B)=C$ 

IF PR=1 THEN PRINT" {WHITE ,„2SPACE 
I"sX$,FF& 

NEXT X 

IF T<>@ THEN 5830 

PRINT" {2DOWN}BITTE Fi DRUECKEN": 

GOSUB 1 

GDOTO 188 

IF Z=1538 THEN X$="PRG " 

IF Z=129 THEN X$="SED " 

IF Z=194 THEN X$="PR&G<" 


Listing 1. »Hypra-Text«-Hauptprogramm. Bitte die Eingabehinweise auf Seite 54 beachten. 





<174> 
<B25> 
<151> 
<8a29> 
<a59> 


<253> 
<825> 


<B64> 


<209> 


<uD9> 


<155> 
<B41> 
<B89> 


<166> 
<@81> 
<a04> 
<834 > 
<143> 
<169> 


<172> 
<229> 


<220> 


<169> 
<B15> 
<258> 
<175> 
<191> 


<225> 
<101> 


<874> 


<129> 
156? 


<297> 
<B20> 
<978> 
<248> 


<258> 


<996> 


<191> 
<842> 


<096> 
<251> 


<231> 


<240> 
<135> 
<164> 


<864> 
<0974> 
<128> 
<281> 
<237>2 
<178> 
<1653> 


<228> 


<a54> 
<152> 


<155> 
<224> 


<B76> 


<282> 


<147> 
<215> 
<2S9> 


<249> 
<285> 
<289> 
<183> 
<8052> 
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5873 
5874 
39875 
5888 


5881 
5885 


5888 
S871 
5892 


59375 


38974 
5895 
58965 


. 3897 


58378 
5877 


59780 
59781 


5782 


39785 


3708 
59787 


59718 


5720 
5921 
5925 
3927 


59758 


59748 


37453 


59758 


3778 
DDR 


&9B1 
6002 


6884 
6085 


6086 
6007 


su 
6287 


8815 
&B1& 


6817 
6818 
6821 
6022 
6024 


s85B 
051 
79208 
7292 
79083 
7084 


7085 
7807 


7988 
7887 


7818 
7811 
7812 
7813 


7814 
7015 


7828 
7038 


7851 


[2 


IF Z=131 THEN X$="USR " 

IF Z=193 THEN X$="SEQ<" 

IF Z=195 THEN X$="USR<" 

IF A$t1)="P"AND Z<>13B AND Z<>19 

4 THEN RETURN 

IF A$(2)< >" INHALT"THEN RETURN 

AN=AN+1TAS(AN)=ID$+" "+X$+FF$:RE 

TURN 

GOTO 188 

IF PR=1 THEN 5897 

GET#2,A$,A$: IF A$<>">"THEN Z=@:R 

ETURN 

GET#2,A$ ‚B£: FF$=A$+B$: IF FF$<>BA 

SAND BA$<>"--"THEN Z=@:RETURN 

C$=" >"+A$+B$:GET#2,A$,B$: FF$=FF$ 

+" {2SPACE 3" +A$+B$+". ":C$=C$+A$+B 

$ 

GET#2 ,A$ ‚B$: FF$=FF$+A$+BS+" ":C$ 

=C$+A$+B$ 

GET#2 ,A$ ‚Bt: FF$=FF$+A$+B$+" {2SPA 

CE,SHIFT-SPACE}":C$=C$+A$+B$ 

FOR Y=1 TO 7:GET#2,A$:C$=C$+A$:F 

F$=FF$+A$:NEXT Y:B=B+1: RETURN 

FF$="":GET#2,A$: FOR Y=® TO 15:6E 

T#2 ,A$: FF$=FF$+A$: NEXT:B=B+1:RET 

URN 

PRINT" {CLR}"3PT$:PRINT"BISK: ";N 

$; " (2SPACE}>LD: "; ID$; " {DOWN}" 

PRINT" {4SPACE}NR. (2SPACE}HER {2SP 

ACE 3 DATUM {SSPACE3 NAME {DOWN} "=RET 

URN 

IF PR=B THEN 188 

PRINT" {CLR}";PT$: PRINT" {RVSON>AE 

NDERN DES BISKNAMENS {2SPACE }0ODER 
DER 2ISK In" 

PRINT" <DOWN>BIE ZU AENDERNDE ATS 

KETTE EINLEGEN UND": PRINT" (2SrAC 

EILFZIT2SPACEIDRUECKEN" 

POKE 198,0:G0SUB i+IF As<>"iF3}" 

THEN 188 

B+="" 

DPEN 15,8,15,"I":PRINT#15,PR$:0P 

EN 2,8,2,"#" 

PRINT#15,"B-R 2 8 18 @":PRINT#15 

‚„"B-P 2 144":FOR T=1 TO 28:6ET#2 

„A$: B$=B$+A$: NEXT 

N$=LEFT$ (B#,16) ; ID#=RIGHTF (BF,2) 

IF X=999 THEN RETURN 

PRINT" NAME £2SPACE >" ;N$: INPUT" {UP 

3NAME" ;N$ 

PRINT" LD{4SPACE}"; ID$: INPUT" <UP> 

IN{2SPACE}"; ID$ 

N$=N$+" (16SHIFT-SPACE}": ID$=ID$+ 

"++": N$=LEFTS(NF,„16) : IDS=LEFTS$ (I 

D$,2) 

PRINT#15,"B-P 2 144": PRINT#2,N$; 

1D4; iFRINT#H19,"D-W Z © 10 0" 

CLOSE 2:CLOSE 15 

INPUT" PASSWORT "3PA$: IF PA$="@"TH 

EN 188 

IF LEN(PA$)<1® THEN PA$=PA$+CHR$ 

(8) :G0OTO 5948 

GOTO 5643 

PRINT" {CLR3";PT$: PRINT" {RVSON}+ 

+ LEX TGSPACEBBRUFZEICH 
NEN + +" 

PRINT" £{DOWNITEXTNAME: ";Ti$ 

PRINT" {2DOWN SPACE} LF1 J=ENDE {3SP 

ACE}L=J = IEXTNAME {DOWN}" 
="=":60SUB 9:IF F=1 THEN 1280 

IF A$="="THEN A$=Ti$: IF Ti$=""TH 

EN PRINT"NAME FEHLT":G0TO 6094 


PRINT" {DDWN}>ALLE VORGAENGER LOES 
CHEN (J/N) ?":60SUB 1 

IF As="J"THEN OPEN 2,8,15,"S:"+B 
$2CLOSE 2 

Bi1$="DRUCKEN [3J":B2£="ENDE [FS5] 


A$=T1$:60SUB 78 

T1$=A$:DPEN 2,FA,15,"IB"zA$=">"+ 
BA$S+DA$+A$: PRINT#2,PR# 

G0SUB 354098 

OPEN 5,FA,5S,"@&B: "+A$+",5,W" 
60SUB 54990 
AX=B-V:PRINT#5,STR$ (AX) 

FOR T=V TO B: IF A$(T)=""OR A$(T) 
=® "THEN ASCTI=">" 
PRINT#S,AF(TI)zIF AS(T)=">"THEN A 
S(T)="" 

G60SUB 34888 

NEXT=:CLOSE 2:CLOSE 5:60T0 198 
T=8:X=8 

IF X<® THEN X=B 

G60SUB 7852: FOR T=1 TO 28 

PRINT" {RVSON}"Z RIGHT$ (STR$(T+X*2 
B),1);"{RVOFF}"ZAS(T+X*2D) 

NEXT T 

PRINT" {DDWN>F1=ENDE {SSPACEIF3=SE 
ITE +{SSPACEIFS=SEITE - " 

B1$=" RENDERN {SSPACE}T2]" 
B2$="SPEICHERN [51":BS$="HILFE {5 
SPACE}+LF7I" 

GODSUB 1 

IF As="{F13"THEN 188 

IF A$S="(F5S>"THEN X=X-1:1IF X>=B T 
HEN 7992 

IF As=" iFS3"THEN X=X+12:1IF X#2D<A 
N THEN 7982 

IF X*2ZD>=AN THEN X=8:G60T0 7982 
IF x<D THEN X=INT(AN/ZD) :GOTO 78 
82 

G0TO 7818 

PRINT" {CLR,RVSON,„SPACE’+L E X Tt 


ZSPACE?&6 4 +EILDSCHIRM+ZEILE {8SP, 


ACE}>" 
PRINT" {HOME ,RVSON,SPACE3+L EXT 
12SPACE}& 4 +BILDSCHIRM+ZEILE"53X 


<B57> 
<215> 
<B29> 


<122> 
<185> 


<241> 
<238> 
<188> 
<137> 


x2357> 


<OBA> 
<247> 
<14B> 


<a47> 


<123> 


<172> 


<143?> 


<1492 ° 


957: 


<127> 


<1135> 
<B77> 


<215> 


<@1iB> 
<1355> 
<D&ss> 


<069> 


sBßa5> 


<155> 


x1717 
<sa25> 


<1853> 


<1208> 
<BB4> 


<221> 
<163> 


<128> 
1733 


<158> 
<2350> 


<2350> 
<0827> 


<225> 
<152> 


<275> 
<235> 
<B77> 
<2359> 
<155> 


<149> 


<114> 
x249> 
<B48> 
sD95> 
2327 
<B42> 


<a74> 
<B54> 


<201> 
<194> 


<117> 
<B87> 
<188> 
<135> 


<199> 
<s1357> 


<248> 
<182> 


<B25> 


7832 
7188 


7125 


7106 
8aRD 
8282 
8uD& 


2007 
8008 


80097 
aaınm 


8011 
8913 
8014 
8215 
8016 


8217 


8018 


7407 


7408 
7487 


94108 
9421 
7427 
9438 
9440 
7458 


9452 
9453 


7454 


9455 
7689 
9708 
9718 
9712 
9713 
9714 
7715 
u 
7718 
7717 
7758 
3755 
97788 


93778 
9788 


9785 


7798 
2795 


7829 
7801 
7810 


7828 
9859 
97850 


77082 


7721 


99718 
7728 
7753580 
79740 
97958 


*20; n_mn 

RETURN 

PRINT" {CLR}"; PT$: PRINT" {RVSON,SP 

ACE}+ +{&85PACE}EBILDSCHIRMAUSGABE 
{FSPACE}+ + " 

INPUT" {2DOWN>RB ZEILE";X:IF X<1 

OR X>AN THEN X=1 

X=INT(X/22):60T0O 79882 

PRINT" {ELRI"3PT$ 

6=8 

PRINT“ {DOWN,SPACE}-1- NEUSTART D 

ES PROGRAMMS" 

PRINT" {DOWN , SPACLE3-2- INFO UEBER 
SPEICHERPLATZ" 

PRINT" {DOWN ,SPATE}-3- ION AUS" 

PRINT" {DDWN,„SPACE?-4- IDN AN" 

ensum 1 

IF A$="1"THEN 18808 

IF A$="B"OR As="{F1}"THEN 100 

IF A$="1"THEN RUN 

IF Af="2"THEN PRINT FRE(9); "ZEIC 

HEN FREI"=:PRINT" {DOWN ,SPACTE}TAST 

E DRUECKEN":60SUB 1:60T0 1 

IF At=" {HOME}"THEN INPUT"CODE";A 

$: IF At="SUSI"THEN 55555 

IF A$=" {CTRL-P}3"AND (BA$="--"OR B 

AF="DF") THEN PR=1:PRINT" {3DOWN}P, 

ROG OK":60SUR 1:6G0TO 188 

IF A$=" {CTRL-03"THEN PR=8: PRINT" 
{3DOWN} PROGRAMMIERER AUS" :GOSUB 
1:60T0 192 

IF A$="3"THEN T9%=1: PRINT" {DOWN} 

ZDN AUS":GODTO 1B8 

IF A$="4"THEN T9%7=B 

IF A$="{WHITE}"AND PR=1 THEN END 

GOTO 129 

REM*** FILL *%* 

PRINT" {CLR}Y"3PT$=:PRINT" {HOME „2DO 

WN,RVSON,SPACE}* * ITEXTPROGRAMM 

* * AUSFUELLEN {2SPACE?* #{3SPACE 
y „ 

F2=B:PRINT"NEBEN DEN IEXT EJ/N]" 
:G0OSUB 1:IF A$="J"THEN FZ=1 

IF A$="{F1}>"THEN 188 

IF F2=1 THEN PRINT" LINKS/RECHTS 
[L/R1":60SUB 1:6=1:IF A$="R"THEN 
G=2 

GOSUB 78 
INPUT"SCHRITTWEITE";S: IF S<=@ TH 

EN 9421 

PRINT" {CLR,4DOWN>HAS ?“ 

A="":GOSUR 9:IF F=1 THEN 108 

IF B>AN THEN AN=B 

FOR T=V TD B STEP 

IF F2=B THEN A$(T)=-A$ 

IF F2=1 AND G=1 THEN A$(T) =A$s+A$ 
‘T) 

ir BAER BEA as) 
+AF = 
NEXT:GOTO 7288 

RETURN 

PRINT" {CLR,RVSON}F";PT$; " {DOWN} " 
PRINT" {DOWN „25PACE}1 {2SPACE}>VARI 
ABLEN ZEIGEN" 

PRINT" {DOWN „ZSPACE}2 {25SPACE}YVARI 
ABLEN EINGEBEN" 

PRINT" {DOWN „2SPACE}3 {2SPACE}>VARI 
ABLEN AN" 

PRINT" {DOWN „25SPACE}4 {2SPACE}VARI 
ABLEN AUS" 

PRINT" {DOWN ,, 25SPACE}S{2SPACE}IVARI 
ABLEN ZU TEXT" 

PRINT" {DOWN , 25PACE }6 {25PACE}VARI 
ABLEN ALS IEXT 1-58" 

PRINT" {DOWN ,2SPACE}7 {2SPACEITEXT 
ALS MARIABLEN 1-5B"” 

PRINT" {DOWN ,2SPACE}8 {2SPACE}>YVARI 
ABLEN AUS DATEIVERWALTUNG" 

GOSUB 1 

IF A$=-"B"OR A$="iF1}"THEN 1988 
DN VAL(A$)GOTO 7899,77098,7780,977 
85,78592,7770,77975,4209 

GOTO 7758 

V9=1:PRINT"VARIABLEN AN":FOR T=i1 
TO 7979:NEXT:GOTDO 7788 

V9=B: PRINT" VARIABLEN AUS"=FOR T= 
ıi TO 9979:NEXT:GOTO 188 

FOR T=1 TO 5B:A$(T)=V$(T) :AN=5B: 
NEXT:GOTO 128 

FOR T=1 TO SB:V$(T)=A$(T)=2NEXT:G 
OTO 188 

PRINT" {ELR}";PT$£ 

FOR T=1 TO 5SB:PRINT T,V*#(T) 

IF T/28=INT (T/2B)THEN G605UB 1:PR 
INT" {CLR}Y";PT# 

NEXT:GOSUB 1:60T0 188 

GOSUB 3:V9=1' 

FOR T=1 TO AN: A#=As$(T):GOSUB 3583 
BRB:AS(T)=A$S:NEXT:VI=-9:60TDO 108 
PRINT" {CLR}";PT$: PRINT" {DDWN,65P 
ACE}+ + VARIABLEN EINGABE + +{4D 
DWN}" 

INPUT"VYARIABLEN NR.";A:IF A>48 T 
HEN 7908 

As=""»GOSUB 9: VE+t(A)=A$ 
PRINT=:PRINT"NOCH EINE? LJ/N]J" 
GOSUB 1 

IF A$="N"THEN 108 

GOTO 97788 


18288 PRINT" SCLRY";PT$: B$=A# 
108018 PRINT" {ZDDOWN>ACHTUNG !:! TEXT U 


NBEDINGT SPEICHERN!" 


18828 PRINT" {DOWN}IST DER TEXT SCHON 


GESPEICHERT? LJ/NI"” 


120350 GOSUB 1:IF A$s<>"J"THEN 4080 
10840 A$=B$:POKE 9738,2:6GDTO 8812 
ZBBBB PRINT” SCLR}Y"5PT$S PRINT" {DOWN,RV 


SON,„SPACE3+ + IEXTPROGRAMM + + 
REEHN E NÜISPACE}+ +" 


Listing 1. (Fortsetzung) 


<2553> 
<232> 


<196> 


<aBS> 
<821> 
<2D4> 
<a53> 


1227 


<284> 
<817> 
<852> 
<@71> 
<068> 
<207> 
<B23> 


<2527 


<BS352> 


<115> 


<188> 


<140> 
<057> 
<057> 
<155> 
<842> 


<Das> 


<254> 
<219> 


2273 
<252> 
<182> 
<B81> 
<197> 
<202> 
<1B4> 
<aB1> 


<243> 


<151> 
<228> 
<8973> 
<114> 
<168> 
<149> 
<170> 
<188> 
<969> 
2497 
<198> 
<2358> 
<B5S> 
<171> 


<199> 
<138> 


<971> 
<214> 
<1497> 


<185> 
<B26> 
<D7&6> 


<224> 
<DßS56s> 
<218> 


<111> 


<149> 


<x126> 
<1976> 
<161> 
<215> 
<B38> 
<1970> 
<216> 


<9023> 


<083> 
<236> 


'<162> 


<B972> 


209097 
28818 


28811 
20815 


29015 
2908197 


22928 
28838 
20031 
29052 
28034 
290840 
20058 


20848 
2u081 
28062 
2006553 
290954 
222808 
22801 
22082 


22883 


22004 


22885 


22085 


22097 
22088 
22097 
22818 
22108 
22185 
22186 
221807 
22188 
Ssapan 
saa21 
saB82 
Ssa8108 


S52B2D 
s8021 


398948 


s2845 
390535 


589854 
SsaBS5 


S3aaS5& 
38057 


s2877 
383508 
383581 
Ss@S51@ 
32328 


Sa5S® 


. 58548 


58558 
39408 
38401 
52405 
s8418 


52428 
s@421 
SB45D 


58451 
52448 


59441 
32442 


358443 
s9a558 


s2560 


50578 


PRINT" {DOWN ,SPACE}TEJ= ENDE" 
PRINT" {DOWN,SPACE}ECI= SPEICHER 


LOESCHEN" <186> 
PRINT" {DOWN,SPACE}LM]J= NEHRWERT 
STEUER EINGEBEN" <183> 
PRINT" {DOWN,SPACE>E+J [-]I [*#] L[ 

:J = RECHENDOPERATIONEN" <208> 
RR=INT ( (RR*100) +8.5) /100 <975> 
PRINT" {2DOWN ,RVSON}"; RR; " {RVOFF 

>" <168> 
GOSUB 1 <143> 
IF A$="C"THEN RR=98:60T0 20908 <128> 
IF A$="E"OR A$="{F1}>"THEN 188 <169> 
IF A$="M"THEN INPUT"STEUER IN % 
<SSPACE>14 {4LEFTY"; MW: GOTO 2898 
a <235> 
IF A$<>"+"AND ASC>"-"AND As<>"r 
"AND A$<>":"THEN 28828 <234> 
PRINT A$;z " {Z25SPACE}"3:INPUT X <9029> 
IF A$=":"AND X=@8 THEN PRINT"EEH 
LER... NICHT DURCH 8 DIVIDIEREN 
".60T0 28928 <227> 
IF A$=":"THEN RR=RR/X <249> 
IF A$="*"THEN RR=RR#X <195> 
IF A$="+"THEN RR=RR+X <233> 
IF A$="-"THEN RR=RR-X <1987> 
G0T0 22208 <224> 
IF PEEK(1922)=® THEN GOSUB 2218 
[] <155> 
IF PEEK(1922)=@® THEN POKE 1922, 
1:LOAD"ZEICHEN B",8,1 <157> 
IF PEEK(1922)=258 THEN POKE 182 
2,248: LOAD"ZEICHEN DIN",8,1 <245> 
IF PEEK(1822)=1 THEN POKE 53272 
‚ilzPOKE 564576,PEEK (56576) AND 2 
52:POKE 648,192 <123> 
IF PEEK(19822)=248 THEN POKE 532 
72,11:POKE 56576, PEEK (54576) AND 

252:POKE 648,192 <226> 
IF PEEK(1922)=1 THEN POKE 1922, 
2:LOAD"ZEICHEN D",8,1 <a59> 
PRINT" {CLR}":IF PEEK(1922)=248 
THEN POKE 19822,199:LOAD" ZEICHEN 

DDIN",8,1 <027> 
IF PEEK(19822)=2 THEN POKE 1822, 
3:LOAD"PROFIP V1.9",8,1 <9887> 
IF PEEK(1922)=199 THEN POKE 182 
2,288:LOAD"PROFIP V1.8",8,1 <233> 
IF PEEK(1822)=111 THEN POKE 532 
72,11:POKE 56576, PEEK (56576) AND 

252:POKE 448,192:END <054> 
6010 11 <182> 
PRINT CHR$ (14); " {CLR,RVSON,SPAC 
E}IEXTVERARBE I TUNGSPROGRAMM {58SP 
ACE>O.FENDT " <202> 
PRINT" {2DOWN}>HAS FUER EINE IAST 
ATURBELEGUNG?" <DAZ> 
INPUT" (2DOWN,SPACE}LDINI — ECBM 
J{SRIGHT}IDIN{SLEFT}Y";ZA$ <B84> 
IF A$="DIN"THEN POKE 1922,258 <237> 
60SUB 3:RETURN <875> 
69=68-5:60SUB 38789: XT=®: IF LEN 

(A$) >M8 THEN A$=LEFT${A$,MB) <B4B> 
POKE 922,AM:CF=1:IF U9=2 THEN U 
9=9:CP=LEN(R$)+CB:G0OTO 398028 <1905> 
IF CC=999 THEN CP=LEN(A$(GB)):C 
C=9:60T0 399828 <@97> 
CC=8: X=9: CP=CB <158> 
IF CP=8 THEN CP=1 <238> 
POKE 988,CP-1:POKE 918,M8-(M8/5 
):sPOKE 928,11:POKE 917,M8:POKE 
924,8 <232> 
SYS 58176, A$,A$ :F=PEEK (913): IF 

A$="> "THEN As="" <218> 
G0OSUB 31 <841 > 
IF F=7 THEN 605UB 39559:60T0 358 
028 <222> 
IF F=15 THEN A$="":A$(68)="":60 
TO 32088 <124> 
IF F=11 THEN GOSUB 39498: A$ (68) 
=A$ <@72> 
IF F=28 THEN CC=999:F=5 <229> 
IF F=1& THEN F=8:IF RIGHT$(A$,1i1 
I<>"F"THEN A$sA$s+"F" <BBS5> 
GOSUB 39308: 6G0SUB SB4BB:PRINT:R 
ETURN <a52> 
REM ** VARIABLEN TEST ** <1B6> 
IF V9=8 THEN RETURN <127> 
FOR B=1 TD LEN(A$)-2 <872> 
IF MID£(At,B,1)<>"@"THEN NEXT=:R 
ETURN <157> 
X=VAL (MIDSC"@D"+A$,B+t1,2))z: IF X 
>5@8 THEN X=@ <114> 
A$=LEFT$(A$,B-1) +V$ (X) +RIGHT$ (A 
$,LEN(A$)-B-2):GOTO 38318 <898> 
NEXT: RETURN <B61> 
IF LENtA$)<MS THEN RETURN <145> 
IF LEN(A$) >88 THEN 30448 <238> 
CC=999: FOR I=MB TO 1 STEP-1 <185> 
IF MID$(A$,I,1)<>" "THEN NEXT I 
:50T0 390448 <821> 
R$=RIGHT$ (A$,LEN(A$) -I) zA$=LEFT 
$(A$,I-1):U9=1 <818> 
IF RIGHTF(RF,1)=" "THEN R$=LEFT 
SIR$,LEN(R$)-1):60TO 38421 <174> 
IF LEN(A$)>=M8 THEN NEXT:60T0 3 
08440 <140> 
RETURN <805> 
GOSUB 95:PRINT" {DOWN}>> ZEILE Z 
U LANG << EEHLER !!"=:POKE 198,8 <B44> 
A$=LEFT$ (A$ ,M8-1) <133> 
GOSUB 3B6B1:IF PEEK(198)<1 THEN 

32442 ; ; <134> 
POKE 1978,8:RETURN <218> 
IF CP+1>LEN{T7$)OR XT=1 THEN RE 
TURN <136> 
x=9B:FOR Z=CP+1 TO LEN(T7$):IF M 
ID$(T7$,2Z,1)="+"AND X=8 THEN X= 
1:CP=Z <199> 
NEXT: IF X=8 THEN XT=1 <B19> 
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32588 
305972 
SDsB8 
Ss26B1 
39682 
38683 
59618 


50619 
590622 


59621 


59788 
38701 


s9782 
s>@785 


s®718 
30728 
3907582 
s@a7402 
3507582 
390751 
50752 
390753 
S1908 
51881 
Ss1922 
‚ 31983 
51984 
519B& 
519087 
51218 
51816 
31819 
51828 
51248 
31962 
s18681 
51862 
51865 
31158 


31168 


311997 






c428 
c4B8 
c418 
c418 
c428 
c428 
c432 
c438 
c440 
c448 
c458 
c458 
c468B 
c458B 
c470 
c478 
c488 
c488 
c498 
c498 
c4aB 
c4a8 
c4bB 
c4b8 
c4c8 
c4c8 
c4d2 
c4d8 
c4eB 
c4eB 
c4fB 
c4f8 
c5B2 











IF LEN(A$)<CP THEN As=A$+" (SHIF 
T-SPACE}":G0TO 30588 

RETURN _ 

REM ** ERROR SYSTEM ** 

IF T9%=1 THEN RETURN 

POKE 5328@,1 

POKE 54296,15:POKE 54277 ,25:POK 
E 54278,4#16+4 

POKE 54273,29:POKE 54272,69:POK 
E 54276,17 

FOR T=1:TO 28@:NEXT 

POKE 53289,8:FOR T=1 TO 2B®:NEX 


T 

POKE 542758,8:POKE 54277 ,8:POKE 
54278,8: RETURN 

REM *%* FENSTER *# 

PRINT" {HOME >"; PT$:PRINT" {Z2DOWN} 
"72% 

GOSUB 88:60SUB 380758 

PRINT" {HOME}":FOR I=8 TO 18:POK 
E 781,1+5:POKE 782,0:5YS 58556 
IF G69+1<=Q THEN G0OSUB 990:60T0 5 
0748 

V=MB-LEN(AFLI+G9)): IF V<@ THEN 
v-@ 

PRINT A$(I+69) +LEFTF(AdF,V) 
NEXT:GOSUB 78:RETURN 

PRINT K1$;LEFT$ (Aö#, (MB+2) -LEN( 
Ki$)) 

PRINT K2$;LEFT$(Aöd#, (MB) -LEN(K2 
$)) 

PRINT KS$;LEFT$(Aöb#, (MB) -LEN(KS 
$)) 

PRINT K4$;LEFT$ (Ad$, (MB) -LEN (K4 
$)) RETURN : 

REM KR HRERERRRERREERHRREHI RE 
** 

REM #0 HH HHHHHEHRERRRRRRRR 
*%* 

REM #* 
*% 

REM KH SHE HRIHEREHHHRERAERRR 
** 

REM #RREE#HE HEHE Er 
** 

PT$=" {WHITE,RVSON}>HYPRA-TEXT Mi 
-B{1BSPACE>’BY OLIVER EENDT {RVDOF 
F}":ME=1BB: PRINT" {CLR}>";PT$ 
FU$=" RECHNEN” : MW=14 

DIM V#+(58) 


INITIALISIERUNG 


POKE 53281,@:POKE 5328®0,@: IF MB 
<=7 THEN M8=36 

TIE=" 1 dt 
-— -- ++ - — — ot 

GOSUB 462BB: B1$=STR$(MB)+" ZEIC 
HEN MODUS“ 

Ab$=" (67SPACE}" 


Bi$=" LADEN {7SPACE}LS]I" 

B2#=" EINGABE {SSPACE>IF1 I" 

BS3#=" HILFE {7SPACE}+LF7 3" 

GOSUB 1848: PR$="M-W"+CHR$ (1) +CH 
REL(L)+CHREI) H" A" 

PRINT" {CLR}";PT$: PRINT" (2DOWN}G 
UTEN IAG,"3V$(1) 
PRINT"{DOWN>BITTE GEBEN SIE DAS 
DATUM EIN." 

RETURN 
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<245> 
<166> 
<074> 
<154> 
<172> 
<132> 


047? 
<B8R> 


<2D52> 


<228> 
<212> 


<154> 
<812> 


<209> 
<121> 
<1S58> 
<aS5&> 
<149> 
<875> 
<822> 
<B14> 
<058> 
<a22> 
<0253> 
<aS50> 
<925> 
<Ba2&8> 
<875> 
<B16> 
<181> 
<926> 
<2538> 
<a58> 
<B35S5> 
<1135> 
<a59> 
<172> 
<152> 


<a41> 


<839> 
<BD11> 


353028 
Ss5221 


535094 
55218 
33928 
S3Mmz1 


53922 
33025 


33227 
335252 
33B48 
Ss5@61 


35082 
355978 


33072 
53077 
33288 
S42DD 


34901 
34002 
340903 
34018 
34020 
34050 
34968 
54078 
34080 
34090 
54971 
340892 
54108 
54118 
345008 
34518 
34528 
34539 
34540 
34550 
34548 
40208 


42m1D 
49028 


REM #*%*#* FORMBLATT #%#%* 

PRINT" {CLR}"3PT$:PRINT" (HOME „2D 
OWN,SPACE}+ AH AS K Et2SPACE>AU 
SFUELLEN{ZSPACE>+ MDN HENU 1 +" 
:A=CB 

Bi$="SPEICHERN [51" :B2$="RENDER 
N [2)" 

FOR P@=1 TO AN 

As=As(PQ) :A$(PQ)=A$ : 
IF LENtA$)=B THEN NEXT:GOTO 358 
97 

FOR PX=1 TO LEN(A$#$):L=B 

IF MID$(A$,PX,1)="G"THEN CB=PX: 
GOTO 33858: IF CC=4 AND CB=B THE 
N 108 

NEXT : 69=PQ-4: GOSUR 38708: NEXT:G 
0TO 358997 

FOR PX=CB TO LEN(A$)=: IF MIDE(A$ 
‚PX,1)="Z"THEN NEXT 
AS=LEFTE(A$S(PO) „CBI+LEFT$(CAS$,P 
X-CB=-r) 

X=LEN (A$ (PR) )-PX+1:1IF X>B THEN 
AF=AS+RIGHTF(" "+AS(POQ),X) 

A$ (PR) =AF 

68=PQ@:GOSUB 39908: A$(PQ)=A$: IF 
F=1 THEN 1988 

GOTO 33922 

CB=A:60T0 188 

RETURN 

REM KRRKN KHK UHEREHTR 
** 
REM *# 
x 
REM * 
* 
REM # 
* 

REM AH HH HREEERHEHRRER ER FHR 

#* 

INPUT#2,EN,EM$,ET,ES:IF EN=B TH 

EN RETURN 

PRINT" {HOME „2BDOWN}" 3 EN; " {2SPAC 
E)";EM$ 

PRINT" {2DOWN}> TASTE DRUECKEN" 
GOSUB 1 

IF EN=52 OR XY=997 THEN RETURN 
PRINT"KDONTROLLIEREN UND NACH DE 
M BEHEBEN {&SPACE}LF1i1]J DRUECKEN" 
GOSURB 1:1IF A$s<>"{Fi1>"THEN 34291 
PRINT#2,"I1":GOTO 198 

POKE 915,5:POKE 9788,8:POKE 917, 
M8:5YS 5B182,A# 

GOSUB S1: RETURN 

FOR T=297857+8509 TO 659080 

IF PEEK(T)<>® THEN NEXT 

X=T 

PRINT PEEK (X) +PEEK (X+1) #256 


Ir PER Te EN: 6 


DTO 34538 

PRINT CHR$ (PEEK (X)) 5 :X=X+1:G0TO 
34550 

PRINT" (HOME ‚8DOWN> DATUM: ": A$="- 
----- ":50SUB 9: DA$=As 

IF DAs="-- "THEN 48000 

D$=LEFT$(DA$,2)+"."+MID$ (DAS, S, 


FLOPPY CONTROL 


<8a52> 


<2153> 
<065> 
<B97> 
<125> 
<928> 
<174> 
<240> 
<207> 
<878> 
<158> 


<D1B> 
<135> 


<0657> 
<208> 
<299> 
<237> 
<229> 
<Q11> 
sB56> 
<8153> 
<239> 
<198> 
<099> 
<168> 
<224> 
<127> 
<1577? 


<151> 
<B40> 


<ZBB> . 
<@a21> - 


<059> 
<817> 
<832> 
<124> 
<885> 


<972> 
<243> 


<219> 
<118> 


43008 
450408 
43888 
45200 
46881 


46082 


46095 


45084 
46005 


46007 
45018 
45813 


46058 
468553 


46855 


46056 


462858 
46050 
46061 
46052 
46078 
55555 
53556 


55557 
55568 


56108 
56121 


565122 
56185 
56184 


56185 
56197 


56188 


56107 


2)+".19"+RIGHT$ (DA$,2) :RETURN 

REM 

AM=1 

RETURN 

PRINT" {CLR}" 3; PT$; CHR$(14) :M8=39 
:CB=1:MB=39: T9%=1 

PRINT" {DOWN} PARAMETERDISKETTE E 

INLEGEN {DOWN} " 

IF PEEK(938)<>@ THEN BA$=CHRS(P 

EEK (938) ) +CHR$ (PEEK (931) ) : FA=PE 

EK (932) :60T0 44078 

PRINT" FLOPPY {ZSPACE>HDR. : {2SPAC 

E)S":6OSUB 1:FA=VAL(AS):IF As=C 

HR$ (13) THEN FA=8 

IF FA<S OR FA>9 THEN 46083 

T9%=1:PRINT" {2DOWN}NAME {9SPACE>} 
",G0SUB 4:60SUB 5: B$=A$: T=@:PRI 

NT 

IF VAL(B$)<>® THEN Y=VAL (B$):6G0O 

SUB 4588:G0T0 46810 

GOSUB 4189: IF F<>7997 THEN GOSUB 
4508 

IF F=999 OR EN<>® THEN PRINT" {D 

OWN} BENUTZER NICHT REGISTRIERT" 
:G0SUB 1:60T0 44980 

IF PEEK(19822)=20@ THEN AM=2 

M9=39 

IF v$(7)="-"THEN PRINT"KEINE ZU 

GRIFFSBERECHTIGUNG" :GOSUB 1:60T 

0 45008 

IF T>2 THEN PRINT:PRINT" {WHITE)> 

PASSWORT FALSCH":6OSUB 1:60T0 4 

6208 

PRINT“ {HOME „8DOWN > SDDEWORT {BLAC 

K}":60SUB 4:G60SUB S5:PRINT" {WHIT 

E}"zIF A$<>V$(7)THEN T=T+1:60T0 
46855 

BAs=V$ (8) 

POKE I39,ASC(LEFT$(BA$,1)) 

POKE 931,ASC (RIGHT$(BA$,1)) 

POKE 932,FA 

XY=B: RETURN 

CLOSE 15:0PEN 15,8,15,"I":CLOSE 
15 

PRINT” {CLR,4DOWN}ICH SPEICHERE"” 
» SAVE"@:PT"+DA$,8 

POKE 2,8 

PRINT" {HOME ,7DOWN}IST GESPEICHE 

RT":END 

PRINT" {CLRY";PT$ 

PRINT" {2DOWN SPACE „RVSDN}ACHTUN 

8 !!!{RVOFF}" 

PRINT" DOWN, SPACE>NUR WENN DER 

IEXT SCHON GESPEICHERT" 

PRINT“ IST, DANN DIE HYPRA-TEXT 
BISKETTE" 

PRINT" EINLEGEN, UND £F8J DRUEC 

KEN !ı ı" 

GOSUB 1:IF A$<>"{FB8}"THEN 198 
PRINT" {CLR}";PT$: PRINT" {2DDWN}>L 

CH LADE NUN PROFIPRINT" 

PRINT" {DOWN,2SPACE}BITTE WARTEN 


POKE 2,8:LOAD"C/PROFIPRINT",8 
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Listing 1. »Hypra-Text«-Hauptprogramm (Schluß) 





EEE ECHTE NEN. me | chen 
c518 
: 4c ie c4 4c B5 c9 4c 52 Ba cs18 
s c? 4c 39 c9 4c 54 ca 4 c6 c52B 
: 81 ca 4c aa ca 4c i@ß cb 46 e528 
= 4c 21 ch 4c 40 cb 20 2b aa c53ß 
: c4 20 3b c4 28 71 c4 28 3d ER 
: d8 c8 68 a2 OU Be 94 083 9e e3aB 
: ad fe a9 20 99 ff ce 88 a4 e348 
: d® f8 60 ea 22 fd ae 28 e7 3 
: ge ad 28 a6 bb aa Be 95 b4 SB 
: 083 aß BB eB ca fB 18 bi 99 an 
ı 22 99 DD c# cB c9 Bd dd e9 er 
: #3 20 e5 aa 4c 4c c4 ad cO E37 
: Sc 03 Bd HB 03 29 00 Sd 7c c578 
: 9103 Bd 92 03 Bd 97 03 31 ee 
: 60 4c 7# c6 ea a5 c6 fB 58 c588 
: fc 20 b4 eS c9 83 fB #5 d2 EIN 
: 8d 92 03 ac 9a @BI cd Bi 73 er78 
: dd 83 28 17 c7 ac 9a 03 17 EB 
: c® 82 dB 96 2B 17 c7 28 &8 csad 
. 81.67. 46 21 67 9 94 U cab 
: 14 ae 98 03 dB O8 a9 14 ac es3bB 
: 8d 91 83 4c de c6 ca Be b5 a 
: 90 03 4c 7# c6 c9 id dd 9% Er 
: 17 ae 90 03 e8 ec 95 03 fd os 
: d@ 08 a2 08 Be 98 05 4c 4 en 5 
ı 7f c6 Be 90 83 4c 7 c6 7e ein 
: c9 aa dd 08 a9 Bl 84 99 2# un 
: 83 ad 92 83 c9 a7 dB 928 e4 esf® 
: a9 00 Bd 99 83 ad 92 83 Be cafB 
: c9 13 dO 88 #9 89 Bd 91 ac c6BD 
: 03 Ac de c& c9 93 dB O8 36 c6BB 
: 29 Bf.Bd 91 83 4c de c6 5a Eure 
: c9 8d d@ 08 a9 10 8d 91 39 c618 


Listing 2. Maschinenroutine zu 


D> 
a? 
c9 
23 
a9 
9 
035 
a9 
c? 
0853 
a? 
c? 
03 
9 
d4 
8d 
a9 
24 
fd 
d4 
72 
c6 
eB 
13 
ec 
ca 
94 
853 
cc 
28 
27 
c7 
D3 
Be 
ia 


de 
Bd 
da 
de 
8d 
da 
de 
Bd 
dd 
de 
Bd 
dd 
de 
da 
SB 
d4 
Bd 
ad 
da 
04 
E37 
14 
95 
lr] 
D3 
98 
ia 
ff 
83 
4c 
78 
fB 
#1 
083 
Be 


ca 
91 
28 
cö 
71 
28 
cö 
91 
28 
ch 
71 
28 
cö 
s5s® 
Bd 
a9? 
BD& 
52 
f8 
d4 
2d 
do 
1,3 
c# 
d@ 
3 
ae 
ce 
d® 
d4 
85 
12 
a 
4c 
98 


85 
4c 
DS 
87 
4c 
D7 
-89 
Ac 
04 
8b 
4c 
08 
98 
; d 
d4 
8d 
a9 
ff 
288 
98 
23 
se 
990 
#f 
ae 
7 
83 
DD 
a? 
E97 
bd 
008 
83 
c& 
4c 


da 
de 
Bd 
da 
de 
Bd 
da 
de 
8d 
de 
de 
8d 
23 
Bd. 
a9 
85 
11 
ca 
Bd 
DS 
4c 
95 
03 
ce 
9B8 
ch 
ac 
c# 
28 
91 
ul) 
ec 
ca 
e8 
7f 


28 


Be 
bd 
95 
Be 
d® 
b7? 
98 
cf 
ae 
28 
de 
98 
ch 


ca 
4c 
ch 





853 
So 
18 
17 
d3 
f8 
7b 
69 


c628 

c628B 

cösS5B 

cu58 
ch42 
cö48 
cös5d 
cöu58 
cbs8 
chö8 
c678 
c678 
c5s88 
cös88 
c697B 
c698 
cö6ad 
cdha8 
cöbB 
cö6b8 
cöc® 
cöc8 
cödR 
cöd8 
cded 
cödeB 
cöf® 
cöbf8 
c788 
c7B8 
c718 
c718 
c72®8 
c728 
c730 
c7S358B 





c? 
02 
bd 
208 
4c 
22 
DS 
ch 
Be 
da 
Be 
d® 
98 
az 
22 
e5 
189 
28 
ac 
ab 
B5 
B3 
Bd 
8d 
8S 
28 
47 
za 
8d 
da 
az 
c? 
23 
Bd 
a9? 
da 


11 
da 
20 
38 
7f 
B3 
ec 
ar 
98 
287 
90 
25 
283 
22 
47 
aa 
öd 
Bc 
98 
a9? 
ec 
su 
91 
91 
ac 
ac 
ab 
Ic 
9d 
a8 
BO 
37 
68 
92 
597 
06 


23 
4c 
cI 
dd 
e8B 
28 
83 
2S 
ac 
ag 
ac 
22 
Ic 
95 
e8 
8d 
083 
a9 
b? 
28 
25 
Ac 
4c 
4c 
DS 
25 
88 
ch 
bd 
8 
Be 
D& 
‘7? 
68 
92 
d? 


ca 
Bc 
98 
ch 
ae 
4c 
cf 
cd 
cr 
c® 
83 
Bc 


285 
928 
98 
47 
28 
ae 
ae 
a9 
a7 
as 
e5 
cf 
28 


83 
85 
9c 
95 
eB 
ec 
83 
ca 
e8 
dd 
c,7 
25 
8d 
a9 


c3 
fd 
68 
8d 
a? 
de 
e3 
B3 


»Hypra-Text«. Bei der Eingabe bitte den MSE verwenden. 
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<184> 
<1335> 
<297> 
<191> 


<a58> 


<B8s5> 


<057> 


<817> 
<255?> 


<131> 
<a93> 
<209> 
<111> 


<832> 
<B352> 


<835> 


<1359> 


<238> 
<225> 
<056> 
<181> 
<1B8> 
<142> 
<176> 


<192> 
<111> 


<1B35> 
<077> 


<281> 
<155> 
<246> 


<B44> 
<194> 


<13B> 


<254> 
<B86> 





297 
95 
Ba 
48 
13 
d? 
eä 
45 
26 
53 
32 
84 
cö 
c4 
b9Y 
Sf 
13 
2a 
Be 
ic 
3a 
x 


008 
5f 
es 
41 
ba 
c5 
37 
4b 
9a 
Ba 
4c 
eb 








c748 : 6QB ea c? 
c748 : fQ 27 c? 
c758 : 8 if c9 
c758 : fB 17 c9 
c768 : fB Bf c? 
c768 : fBD 987 c9 
c778 : c4 a? BD 
c778 : c4 a? bö 
c788 =: c4 ad 92 
c788 : 3a d®@ B& 
c798 : 59 c9 5b 
c798 : 92 83 &8 
c7/aB : a3 8d 92 
c7/aB : B& a9 b7 
c7bB : 408 dB B% 
c7b8 : 58 c9 ba 
c7’c8 =: 92 DS 68 
c7c8 : a6 Bd 92 
c7d8 : 86 a9 3b 
c7d8 : Se dß B& 
c7/eB : 48 c9 253 
c7e8 : 92 BS 58 
c7fB =: 23 8d 92 
c7f8 : B&b a9 2 
cBBB : db de 96 
c888 : 48 c9Y 2f 
c818 : 92 98S 48 
c818 : 2b 84 92 
c82B : B& a? 2a 
c828 : 649 40 60 
c8352 : B2 c9 Bi 
c85358 : c? 82 f8 
c848 : 4c 85 cB 
c848 : c7 ad 92 
c858 : a9 3c Bd 
c858 : d® 864 a9 
cB5s8B : c?7 5b dB 
c848 : 83 420 c? 
c878 : 8d 92 83 
c878 : a9 4D 8d 
c8882 : 92 BS Ac 
c888 : c9 85 d® 
c8F7B : 853 4c 87 
c898 : a5 92 8d 
c8aß : c? 87 d® 
cBa8 : 85 4c 87 
c8bB : a5 B4 Bd 
c8b8 : a9 28 8d 
c8c8 : BIS c? 38 
c&8c8 : 72 B53 60 
c8d@ : 27 8d 92 
c8d8 : 28 fd ae 
cBeß : 84 4a 28 
c8e8 : 28 75 b4 
c8f®B : 91 47 88 
c8f8 : bd 82 cf 
c9BB : 98 DS de 
c9B8 : 28 5b c4 
c9718B : ae'ı9S 83 
c918 : 95 B5 bd 
c928 : 2a c9 a5 
CIZB 2,.22:€E9:b5 
c97358 : la c?7 aa 
e938..2.412,C7:Bbe 
c740 : Ba c9 ac 
c948 : 4c la c9 
c975B = c7 68 20 
c958 : e8 Se 95 
c9hRB : 95 BIS ac 
c968 : a2 BB e8 
c9772 : fB 16 ac 
c9778 : B4 c9 28 
c988 : ec 95 BIS 
c-9788 =: Bd 91 83 
c99B =: ch Be 72 
c978 : ae 95 85 
c9aBd : d8 cB 59 
c9a8 =: c97 28 B5 
c9b8 : a9 BD Bd 
c9b8 : 8d 8c 853 
c9cB : 97 83 8d 
c9cB : ad 97 83 
c9dB : cd 95 83 
c7dB :; 12 Bf ae 
c9eB : BI’e6 9b 
cIe8 : 2d bd 92 
c9ft@a : ca Be 91 
c9#8 : ad 71 BS 
caßQ : cd 95 B23 
cad8 : a2 BB Be 
cal® : 28 ie ca 
calß : 28 fd cö 
ca2B : 83 ec 95 
ca28 : 91 85 18 
caS®ß : dd Sc 83 
caS58 : BB cf 88 


















DATA 169,240,32,71,3,169,168,32,71, 8499 DATA "END",® <B95> 































3,96,135,89,1298,169,51,133,1,169,08 <184. 9999 DATA"END",2,0,0,0,08,0,8,8,0,0,82, 

1 DATA 169,8,133,88,133,90,133,95,169 2,2,2,2,2,0,,2,08,0,0,,02,0,0,0,2, 
»224,133,91,169,2088,133,96,32,191,1 2,8 <196> 
63 <B94 > 10088 PRINT" {CLRI":GOTO 12988 <125> 

2 DATA 169,168,169,55,133,1,88,976 <976> 120828 GOSUB 499800 <B64> 

1BB2 FOR T=@ TO 46:READ X:POKE T+828, 13888 PRINT" {CLR,4DOWN}DAS PROGRAMM W 

X:NEXT <220> IRD GESPEICHERT":POKE 46,38 <925> 
iB1D SYS 828 <893> 13881 PRINT" {DOWN,2SPACE>- BITTE WART 

19068 POKE 53272,8:POKE 56576,PEEK (565 EN -{2SPACE}"” <158> 

76) AND 252:POKE 648,192:PRINT" {C 13803 SAVE"@:LOADER DIN 2.1",8 <828> 
ER <117> 130884 VERIFY"LOADER DIN 2.1",8 <161> 

1188 FOR T=1 TO 128:READ A$,X:POKE 18 13885 PRINT"DAS PROGRAMM IST GESPEICH 

26+T,X:IF A$<>"END"THEN NEXT <071> ERT":END <178> 

1118 PRINT 1827+T <B12> 20008 X= 168 :L= 85088 <232> 

2BBB GOTO 5220 <194> 20881 IF X>191 THEN 32980 <943> 

3BBA Z1=36844+T*+8+X+20472+7 <248> 20018 PRINT" {CLR,2DOWN}" :PRINT"20888 

5B4B POKE Z1,X(X) <146> X="sX+1; ":L="sL+2 <185> 

3058 FOKE Z1+256*8,X(X) <194> 20828 PRINT L; "DATA"+CHR$ (34) +CHR$ (X) 

3051 POKE Z1+128*8,255-X (X) <013> +CHR$ (34) 5" ,999,":X;",8,8,0,0,8 

3052 POKE Z1+384*8,255-X (X) <141> ‚2,0 <114> 

SBan Z1=71-5#1615 <2350> 28838 PRINT"GOTO2BBBB {HOME}" <B42> 

3070 POKE Z1,X(X) <176> 2080408 POKE 198,5:FOR T=651 TO 6351+5:P 

308 POKE  2Z1+256*8,X(X) <226> OKE T,13:NEXTzEND <172> 

3@81 POKE Z1+128*8,255-X(X) <845> SO200 X= 1:L- 89900 <175> 

3082 POKE 2Z1+384#8,255-X (X) <173> Sse@B1 IF X>127 THEN PRINT" {CLR}’FERTIG 

3999 RETURN <247> "END <115> 

4000 REM <252> SBB1B PRINT" {CLR,2DOWN}" :PRINT"S9908 

4218 FOR X=1 TO 8 <B38> z"sX+15;":L=";51L+2 <207> 

4020 GUSUB 3@@9: NEXT <985> 3588197 IF X=34 THEN PRINT L; "DATA"+CHR 

4838 PRINT" {SDOWN}":GOTO 5030 <182> $5(34) +" "+CHR$S (34) 5" ,";X:G0TO 

4908 : <B5Q> 30032 <890> 

5008 XX=120B:POKE 1924,8:POKE 1925,15 s@@28 IF X>S1 THEN PRINT L; "DATA"+CHR 

:POKE 1926,14 ; <889> 5134) +CHR$ (X) +CHR$S (34); ","5X <197> 

5038 READ A$:A$(1)=A$: IF A$="END"THEN 32821 IF X<32 THEN PRINT L; "DATA"+CHR 

18008 <131> $(34) +". "+CHR$ (34) 5" ,"; <134> 
59848 FOR T=1 TO B:READ X(T):IF X(1)=9 3B03B8 PRINT"GOTOSOBRR {HOME}" <137> 
99 THEN 5842 <066> 39248 POKE 198,5:FOR T=651 TO 831+5:P 

5041 NEXT <225> OKE T,13:NEXT:END <818> 

5842 FOR T=i TO 8:READ Y(T):=NEXT <862> 420008 REM *** SAVE FILE #%** <219> 

5252 GOSUB #588 <B44> 48081 OPEN 2,9,1,"@: ZEICHEN DDIN" <181> 

5ß55 IF X(1)=999 THEN 5830 <a41> 428818 PRINT#2,CHR$(B) ;CHR$ (4); <135> 

5B62 GOTO HBRR:GOTO 5838 <BA6> 40028 FOR T=4*1612 TOD 2848:PRINT#2,CH i 

602B PRINT" {CLR}Y"zZA$(1): PRINT PEEK (49 R$(PEEK(T)) 5 NEXT  <196> 

' 152) <118> 42038 CLOSE 2 <170> 

6812 T=PEEK (49152):60TD 4988 <157> 48848 OPEN 2,8,1,"@: ZEICHEN DIN" <176> 

6588 REM ** DRUCKERCODE #*%* <891> 400858 PRINT#2,CHR$ (B) ;CHR$(14*16); <973> 

6510 AS=ASC (A$) sAS=AS-168 <B62> 400840 FOR T=9#+1613 TO 9#1613+4096 <155> 

65208 AS=(AS#8)+120@:FOR T=1 TO 8:D(T) 48978 PRINT#2,CHR$(PEEK(T)) 3 =NEXT <B46> 

=Y(T) NEXT <088> 48088 CLOSE 2:RETURN <3888> 

548 FOR T=1 TO 8:POKE AS+T,D(T)=NEXT <218> 

6558 RETURN <202> 8 St’er 

70088 : <118> 


Listing 3. Mit dem Programm »ZLOADER« definieren Sie Bildschirm- und 
Druckersteuerzeichen. Beachten Sie bitte die Eingabehinweise auf Seite 54. 





ca40 : a9 28 9d BB c# ac 93 835 17 8582 DATA" {SHIFT-SPACE?" ,9,8,8,24,90,8 
ca48 : c8 8c 93 BS ac 977853 c8 ci Ei ‚2,8, 352 ‚8,0,8,8,0,0,8 <156> 
s 2 DATA"X",2,112,34,38,34,112,0,08 
ca5® i 8c 97 085 68 a5 a4 Bd 57 #9 27 ‚53,0,0,0,0,0.0 Be 2 RE REER 
caS8 : ca a5 a5 8d 68 ca 78 a9 22 8504 DATA"T" ,102,0,102,102,102,102,6® 
ca68ß : 35 85 Bl ac 95 83 b? SS ec ‚8,95,8,02,0,0,8,2,8 <B21> 
ca68 : 35 99 BO ct cQ OB fO 04 Sa 9586 DATA"T”,102,0,68,6,62,102,62,0,1 
n 0,8 
ca7B : 88 4c 66 ca a9 37 85 Bl 7e 8508 DATA"G" ‚999, 241 ‚2,0,0,0,0,0,2 <175> 
ca78 : ad 95 BS BSd 92 835 Ac dB 66 8518 DATA"E",9,12,74 „106,74,12,8,8, 
ca8ß : c8 28 2b c4 28 Sb c4 78 9c 27 ,69,8,0,0,2,8,8 <214> 
= 8512 DATA"F" ,69,54,60,54,68,48,96,8,1 
= s a7 e= a hr a5 a4 Bd 7d Se 26,002 ‚200 ‚200 ,200,000,0,0 "7 2034> 
ca : caasa Fe ca ac 95 656 8514 DATA"R" ,0,224,178,230,178,224,0, 
ca?8 : 983 b? 9008 cf 99 BB 50 88 5e ; D, 27 ‚„87,48,2,2,0,0,8 <222> 
caaß : 38 82 4c 99 ca a9 37 85 7a 8516 DATA"T",999,168,0,0,8,2,0,9,8 <249> 
3 8518 DATA"£" ,60,66,153,161,161,153,66 
are : B1 40 78 a9 ff Bd OS dd 61 ET ER 
cab® : ad BZ dd 89 04 8d 82 dd 67 8528 DATA"R" ,2,28,150,220,158,28,8,82, 
cab8 : ad BB dB 297 94 Bd BB da 99 27 ‚987,49,0,8,8,0,0 <214> 
cacd : a9 18 Bd Bd dd ad Bd dd b2 8522 DATA"G",999, 244 „8,0,8,2,0,08,8 <141> 
- 8524 DATA"T",2,0,124,56,16,8,8,8, 32 
ee eeie ann 2 
° . ca a 8524 DATA"Z" ‚999, 246 ‚„2,0,0,0,02,8,8 <241> 
cad8 : 43 20 f7 ca a9 48 20 #7 d® 8528 DATA"S",999, 242 ‚0,0,0,0,0,0,0 <131> 
cae®ß : ca 58 48 48 a5 9a c9 84 56 8558 ee ee 
- H ‚222,000, 2,8 <244> 
caeB : fB B5 4c cd fi 68 c9 Bd ca 8532 DATA"R",999, 240 ‚0,0,0,0,0,0,0 <ı104> 
cafd : d®ß 85 28 f7 ca 39 Ba 8d 87 8534 DATA"E" ,102,0,68,102,102,182,60, _ 
caf8B : Bi dd ad BB dd 29 #b 8d 85 2,124,20029,200,0090,000,220,0,0 <245> 
cb®® : 22 dd 29 284 Sd OR dd ad. 3d 8536 DATA"R",102,68,102,182,182,102,6 
“ 0,90,92,200,0008,000,008,00808,8,8 <®10> 
cb88 : Bd dd 29 18 FO f7 18 48 58 8538 DATA"W",999, 249,0,0,0,02,8,0,0 <191> 
cbi@ ; 29 2b c4 28 Sb c4 ac 93 af 8540 DATA"R",8,96 „82 ‚86 ‚82 ‚96,8,8 
cb18 : 83 88 8c 90 83 28 dB c8 27 ,78,0,0,0,2,0,0 <@24> 
Ch2@ : 60 20 2b c4 20 Sb c4 aB 24 8542 DATA"T" „0,28, 156,200, 136,28,8,8, 
b2B : OB by DI 27 ‚52,2,8,8,8,2,8 <131> 
Ü B ct 97 BB c# cB a9 8544 DATA"T",1@2,102,102,0,0,0,8,0,34 
cb358 : cc 95 835 dB #4 ac 93 BIS aa ‚2,2,90,8,20,0,0 <131> 
cb38 : 88 Sc 92 US 208 dB cB HB 38 8546 DATA"Y",102,24,68,102,126,102,10 
x 2,90,91,200,080,229,000,220,0,0 <®24> 
cb4B : a9 42 85 a5 a9 88 85 a4 27 85483 DATA"Y" ‚102,0,102,102,182,102,59 
cb48 : aß ff a9 28 91 a4 88 de 58 ‚2,125,200,000,000,000,020,0,8 <815> 
cb52@ : #9 e& a5 a5 a5 c9 cQ dd 28 8550 DATA"E",777,185,2,2,0,0,0,8,8 <226> 
cbS58 : fi 40 35 22 Bd 28 dB ad 9b 8552 DATA"G",999, 1854 „B,08,8,2,28,0,8 <B28> 
E 8554 DATA"F" ,8,16,48,112,48,16,0,8, 3 
eh ner ne aan 
: e c 8556 DATA"T",9,18,1468,2190,146,12,8,8 
cb7B : c® 30 83 38 e9 60 c9 aß 1a 27 „45,49,0,0,0,0,@ " " 2228> 
cb78B : 3@ 26 38 e9 ad Ba Ga Ya Hd Er Re 
5 „ ey = [} {4} 
cb82 :: 48 a7 a2 853 ge a7 B4 85 48 27 „45.498,0,0,8,0,0 u ® ur <294 > 
cb88 : 9 78 Bb a9 BO 45 9e 85 d7 8562 DATA”"E",999, 191 „B,2,0,8,0,8,8 <222> 
cb9B2 : Je 48 a8 bi I9e fB 88 48 e5 8564 DATA"&",799, 241 ‚„28,8,0,28,0,0,8 <169> 
cb98 : 28 ee ca c8 4c 93 cb dB A4c B0# 
cba® : aß a9 Bi 8d 28 dß b9 92 82 Se 
cba8 : 84 A4c ee ca ff ff ff ff e7 


Listing 4. Änderung für die 


Listing 2. (Schluß) Zeilen 8500 bis 9000 


Ausgabe 10/ a TER de 


64er-online.net 


x 


Re R 
LH ki Ä . 


. ' 
(DR Pla DIR 0 
[Te 
Kun Roh) VRR, 


en rs RAT 





64er-online.de 
64er-online.net 





Pac-Man 
unter der Lupe 


Eine ganz besondere Pac-Man-Version 
bieten wir Ihnen mit diesem Listing. 
Ihnen steht ein riesiges Labyrinth zur 
Verfügung. Um den Pac-Man hier noch 
zu erkennen, mußte er unter die Lupe 
genommen werden. 


Nachdem ich des Spielens müde auf einem Apple ein Pac- 
Man-Spiel sah, das es in dieser Form auf dem C 64. noch nicht 
gab, erwachte der Programmierer in mir. Ich wollte dieses Spiel 
für den C 64 entwickeln. | 

Gegenüber dem Apple hat der C 64 Sprites zur Verfügung, 
die man sogar vergrößern kann. Also mußte man nur noch eine 
Bildschirm/Sprite-Verschieberoutine schreiben. Als diese 
Routine funktionierte, mußte das Spielfeld erstellt werden. Da- 
für wurde ein spezieller Line-Befehl geschrieben, der mit ei- 





nem Minimum an Parametern über Spiegelung das Spielfeld 
erzeugt. Die Joystickabfrage wurde an Port 2 gelegt, da dies 
die meisten Spiele tun. 


Der Verfolger-Algorithmus war anfänglich darauf ausgelegt 


»intelligent« zu sein. Aber bei dieser Steuerung wurde man 
spätestens nach dem Fressen von fünf Punkten eingeholt. So 
wurde ein einfacherer Algorithmus gewählt, der nur abläuft, 
wenn man sich selbst bewegt. 

Noch ein wichtiger Hinweis: Nach dem ersten RUN wird das 
Programm »decompressedd«, das heißt die Maschinenroutinen 
und die Grafik werden absolut im Speicher abgelegt. Jetztkann 
man mit LIST ein kleines Basic-Programm einsehen, dessen 
Aufgabe es ist, die Verfolger und die Farben zu setzen. In Zeile 
1 ändert man die Bildschirmfarbe. Hier muß die 110 ersetzt 
werden (Werte siehe Handbuch). In Zeile 2 wird durch Andern 
der 110 die Score-Farbe gewählt. In Zeile 3 wird die Lupenfar- 
be eingestellt. Durch Ersetzen der 4 in Zeile 4 (Werte von 1 bis 
8) kann die Anzahl der Verfolger geändert werden. Hat man 
nun die Farben eingestellt (oder auch nicht) wird das Spiel ein 
zweites Mal mit RUN gestartet. 

Steuern können Sie mit dem Joystick in Port 2. Wird man ge- 
fressen, startet man ein neues Spiel mit dem Feuerknopf. 

Eine kurze Bemerkung für Maschinensprache-Freaks: Wer 
Lust und Laune zu einem besseren Ton hat, der kann einfach 
Musik in den IRQ legen. Das Programm läuft in einer einzigen 
Jobschleife ab. (Thomas Kaiser/rg) 


PROGRAMM : GHOST 0801 1DDA 0991 =: CF 00 AA EF 00 AA CF 00 99 0oB39 : 03 28 30 20 30 28 30 2C BE 
ER BEDRE BRENE ERDE 20ER SER ES ENEN: RRRRERR EEE OHREN ER EN 0999 : AA CF 00 AA CF 00 AACF C7 OB41 : 28 2C 38 1iC 30 1iC 48 20 56 

O9A1 : O0 AA CF 00 AA CF 00 AA #89 0B49 : 30 20 3C 24 34 28 34 24 BB 
0801 : 25 08 DA 07 9E 32 30 38 4F 0949 : CAOMAAER KORB F 00 Bi 0B5S1 : 34 24 38 30 24 38 24 34 48 
0809 : 37 20 54 48 4F 4D 41 53 7A 09B1 : AA CF 00 AA CF 00 AA CF DF 0B5F? : 18 34 20 OC 40 OC 44 08 9?B 
0811 : 20 4B 41 49 53 45 52 20 39 09B? =: 00 AA CF O0 AACF 00 AA 81 OBöil : 44 OC 44 18 38 18 40 10 25 
0819 : 31 39 38 35 20 20 20 20 S5F oO9C1 : CF 00 AA EF 00 AA CF 00 C9 0OB4F? : 40 18 40 10 40 10 58 08 BD 
0821 : 20 20 20 00 00 00 A2 00 EA 09C9 : AA CF 00 AA CF 00 AA CF F7 0OB71 : 48 10 48 04 4C OC 4C OC C2 
0829 : BD 38 08 ?7D 00 01 ES DO 05 0O?D1 = 00 AA CF 00 AA CF 00 AA 97 0B77 : AC OC 50 04 50 04 5C 04 FF 
0831 : F7 A2 FF 9A ACC 00 01 78 86 09D9 = CF 00 AA CF 00 AACF 00 EI 0OB81 : SC 14 SC 08 50 08 54 08 A6 
0839 : AI 34 85 01 AO 00 A9 DA EA OJE1 =: AA CF 00 AA CF 00 AACF OF 0OB89 : 54 10 54 08 58 0OC 58 14 &B 
0841 : 85 AE A9 1D 8S AF AP 00 A8 O9EF =: 00 AA CF 00 AA CF O0 AA Bi OBF1 : 44 14 5C 14 44 18 44 18 BF 
0849 : 85 AC 85 AD AS AC DO 02 42 oO9F1i : CF 00 AA CF 00 AA CF 00 FF 0OB97 : 48 18 4C 18 4C 20 AC 18 2B 
0851 : C6 AD C& AC AS AE DO 02 Ac O9F9 = AA CF 00 AA CF 00 AACF 27 OBAl : 50 1iC 50 18 54 18 58 18 AE 
0859 : C&4 AF C& AE Bi AE 91 AC AE DOAO1 : 00 AA CF 00 AA CF 00 AA C9 OBAF : 54 20 54 04 40 18 60 iC 23 
0861 : A5 AE C9 BE DO E& AS AF E? OAOF =: EF 00 AA CF 00 AA CF 00 ii oOBB1 : 58 1C SC 18 SC iC SC i8 7A 
0869 : CF 08 DO EO A? 01 85 AE 97D OA1l1l : AA CF O0 AA EF 00 AA CF 35F OBBF? : 5C 18 40 20 44 20 40 20 45 
0871 z A? 08 85 AF B1 AC CI BF 9D OA1F = 00 AA CF OO AACF OO AA Ei OBC1 : 3C 28 3C 20 40 24 40 20 8B 
0877 : DO 12 20 78 01 Bi AC AA OF oA21 : CF 00 AA CF 00 AA CF 00 29 OBC9 : 44 28 44 24 48 24 SC 28 IE 
0881 =: AP? 00 91 AE 20 7F O1 CA FC OA2F = AA CF 00 AA CF 00 AACF 57 oOBD1 : 48 28 48 24 &0 2C &0 28 FD 
0889 : DO F8 FO 1& C9 CF DO OD 4D OA31 : 00 AA CF 00 AA CF 00 AA FF OBDY : 38 28 48 28 CF 03 SC 2C 9B 
0891 =: 20 78 01 Bi AC AA 20 78 F5 OA3? = CF 00 AA CF 00 AA CF 91 #45 OBE1 =: 40 2C 44 2C 44 350 44 28 FS, 
0899 : 01 Bi AC DO ES 91 AE 20 9E OA41 : AA 00 00 AO BF 04 44 04 B5 OBE? : 48 38 48 28 ACT 2C A4C 2C- 14 
O8A1 : 7F 01 20 78 01 DO CD A9 DJ OA49 : 04 O8 CF 04 04 OC 04 OC 8F OBF1 : AC 2C 54 28 50 28 58 28 85 
08AF : 37 85 01 58 AC 7A ABE& F7 oOA51 : 08 OC 04 10 04 20 04 20 F4 OBF9 : 58 2C 58 IC 40 20 40 34 F2 
08B1 =: AC DO 02 E& AD 60 EA AE FA OA5F : 08 20 08 10 08 IC 08 IC ZF 0C01 : 28 54 534 50 CF 05 54 2C 95 
08B9 : DO 02 E6& AF 40 OE 08 01 D?2 ORb1 * OE: IE 06 1C-DOE: ZE 06 2E. AD öC09 : CF 04 38 28 38 38 30 CF 9 
OBE1 2 00 97 38:34 30: 26.31 31 AD OA59 : 10 2C 00 24 OB 24 08 24 IE OCc11 : 03 40 34 40 34 48 30 48 20 
08C97 : 30 00 1B 08 02 00 97 38 BO OA71 : 08 30 04 28 04 34 08 08 AA 0OC1? =: 30 50 2C 54 34 54 Z4 AC 56 
08D1 : 34 31 2C 31 31 30 00 28 B4 0A77 =: 18 08 OC 04 OC 18 10 04 E3 0621 : 34 54 30 58 38 58 30 SC 56 
0O8D9 =: 08 05 00 97 38 34 32 2C °C OAB1 : 1C 04 1C 08 IC OC 10 OC 22 0OC29 x 30 50 30 40 3C 40 34 SC F2 
OSE1 : 31 31 30 00 33 08 04 00 3B OA89 : 1C OC 20 04 38 04 20 OB #68 oOCc31 : 38 SC 38 50 38 58 34 ACC 5F 
O8BE9 : 97 38 34 335 2C 34 00 ZE Fi oOA91 =: 20 CF 03 10 20 CF 04 10 006 0oC39 : 3C AC 3C 48 SC AC 38 CF 5A 
OSFi1 : 08 OA 00 9E 35 32 30 33 DE OAFF : 28 10.28 20 28 24 08 28 EC 0C41 : 03 44 3C 2C CF 03 35C 26 59 
O8SF? =: 30 00 AD O8 14 00 97 32 8? OAA1 : O8 20 OC 28 OC 28 OC 28 44 0OC49 : 40 26 2C SC 2C 60 24 5C 45 
091 : 35 35 39 32 2C 31 34 34 EB OAA? = 10 14 14 20 CF 04 14 24 82 oc51 : 28 SC 34 20 48 20 3C 20 &F 
0907 =: 00 5C 08 1E 00 97 32 35 ED OAB1 : 14 24 18 24 24 10 24 18 E& 06597 : 3C 28 38 28 40 28 SC 2C 4B 
0911 s 35 39 33 26 31 34 35 00 BF OAB? : 1C 18 24 CF 04 18 IC 18 86 OC61 : 40 2C 40 30 CF 03 AO 48 74 
0919 : 67 08 28 00 9E 35 32 CF 8A ORCT. =: 1C 28:16 18 20 1iC 22 1CE 97 0069 : 40 50 38 50 40 50 SC 54 0A 
0921 : 03 30 00 6&D 08 32 00 8A 11 ORAEF 2.20 IC 24 IC 24 2C 22 2C 11 0671 : 3C 60 3C 54 44 54 44 28 BF 
0929 = BF OS CF 00 AACF 00 AA DE oADi : 1C 2C 24 20 20 28 20 2C 2D 0C77 z 44 44 40 24 AC 24 SC 10 &B 
0931 = CF 00 AA CF 00 AA CF 00 39 OADF : 08 2C 14 28 14 2C 14 28 45 0681 : 3C 1iC 38 1C SC IC SC 04 FB 
0939 =: AA CF 00 AACF O0 AACF 67 OAE1 : 18 30 18 30 08 34 08 38 DO 0687 : 3C 08 5C 08 40 08 40 10 41 
0941 z 00 AA CF 00 AA CF 00 AA 09 OAEF : 08 38 18 30 OC A8 OC 30 AD 0691 : 48 10 40 10 40 20 44 14 372 
0949 = CF 00 AA CF 00 AACF 00 51 OAFi1 =: OC 30.10 34 10 34 14 30 F3 0C99 : 44 1C 40 04 &4 04 4C 08 24 
0951 =: AA CF 00 AA CF 00 AACF 7F OAFF : 14 34 14 28 18 30 18 30 F5 OCA1 = AC 14 44 14 AC 14 48 18 42 
0959 : 00 AA EF 00 AACF 00 AA 21 0OBO1 : 18 30 30 04 34 OC 34 OC 4B OCAF =: 50 18 44 iC 54 IC AC 20 32 
0961 =: CF 00 AA EF 00 AA CF 00 #49 0B09 : 30 OC 34 14 28 14 30.10 DZ oOCcBi1 : AC 24 50 20 50 28 48 28 DF 
0969 = AACF 00 AA CF 00 AACF 97 oBiil : 30 18 30 10 30 10 38 OC D8 OCB9 : 50 28 48 28 A8 30 AC 2C CA 
0971 2 00 AA EF 00 AA CF 00 AA 39 0B19 : 38 10 38 04 38 04 4C 08 CD oOCclC1 : 4C 38 48 34 48 48 40 CF 29 
0777 = CF 00 AA CF 00 AA CF 00 81 OB21 : 38 08 40 08 3C 14 3C 14 EC OCC9 =: 03 48 44 AC 44 54 40 58 24 
0981 = AA CF 00 AA CF 00 AACF OAF 0B27 : 34 14 3C 14 34 1iC 34 18 IE OCDi : 48 58 48 50 48 58 40 SC &2 
0989 = 00 AA CF 00 AACF OO AA 51 OB31 : 2C 24 2C 24 28 24 2CCF F3 OCDF : AC 5C 40 SC 40 40 44 AC RO 
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OCE1i : 48 AC AC 40 
OCEY? : 54 3C 44 50 
OCFi1 =: 58 0C 50 10 
OCF9 : 50 18 54 14 
oD0O1 : 58 14 SC OC 
0ODO9 : 58 40 54 20 
0OD11 : 54 2C 50 30 
OD1? : 54 34 54 34 
oD21 : 50 58 50 40 
0D29 : 50 AC 50 AC 
oD31 : 54 50 54 SC 
0D39? : 58 50 SC 50 
0oD41 : SC SO CF 053 
OD49 : 48 54 44 64 
oDS1 : 50 58 48 60 
0oD59 : 58 58 SC 58 
OD61 : 50 SC SC 44 
0D67 : 3C SC SC 84 
OD71 =: 4C 598 24 &0 
0D77 : 20 &0 14 &0 
OD81 : 2C 64 08 64 
OD87 : OL 64 10 64 
ODF1 : 10 SC 04 &C 
0D97 : 14 68 18 70 
ODAi1 : 28 58 20 58 
ODAYF : 2C 64 30 78 
ODB1 : 38 64 38 68 
ODBY : 50 &0 54 SC 
ODC1 : 58 58 SC 58 
ODCY? : 50 4C SC 74 
oDDi1 : &2 78 48 A2 
ODDIF : 54 6C 48 &C 
ODE1 : 58 74 48 74 
ODE? : 44 &C 44 74 
ODF1i :;: 44 70 38 70 
ODF? =: 3C 70 40 88 
OE01 : 40 7C 38 88 
0OEOI : 3E:0C 38 &E 
OE11 : 44 84 44 84 
VE1F , 34:70 ZE 7C 
OE21 : 2C 80 30. 80 
ÖE29 »: 34 54 2C 54 
DOE31 : 34 78 28 78 
0OE39 : 28 84 28 84 
OEA1 2 30 70 20 70 
OE47 : 2C 70 20 78 
OES1 : 24 74 24 74 
0ES9 x: 20 7C 18 7C 
VOE6&1 : IC 70 08 70 
OES5F7 =: 1C &C 04 80 
0OE71 z 10 78.08 78 
OE79 : 08 84 04 84 
OE81 : OC 7C OCc 7C 
OE87 : 14 80 18 80 
OE91 : 10 84 10 84 
0OE97 : 24 88 14 88 
OEA1 : 10 8C OC SC 
VOEA? : 14 88 04 9E 
OEBi : 08 94 10 98 
VOEB? : 28 90 14 9C 
QOEL1 ı 25: 90 ZZ. 94 
OECY = 38 90 34 9 
OED1 : 30 94 30 98 
OEDY : 1C 98 18 98 
OEE1 : 34 94 38 94 
ÖOEEF : 36:90 40 98 
OEF1 : 40 9C 38 9C 
OEFF : 44 FF 13 AO 
OFO1 : FF OA FF 00 
OFO9 z SF 00 FF 00 
OF11 =: FF 00 EF 00 
OFi? =: FF 00 FF 00 
OF21 » FF’O00 FF: 00 
OF29 2 FF 00 FF 00 
OFS1 »: 7E 00 FF 00 
OF3F7 s FF FF 00 FF 
OF41 =: 80 FF FE FE 
OF49 : 7A FF 82 FF 
OFS1 : 82 FF B2 FF 
OFSF? = 03 FF 82 FF 
OF&1 =: 82 FF 82 FF 
OF&9 = CF 04 FF 00 
OF71 =: FF 10 CF 03 
OF79 = FF 00 FF 00 
OF81 : FF 00 FF 00 
OF89 =: FF 00 FF 00 
OFF71 2: CF 03 FF 00 
OF99 : FF 00 FF 00 
OFAl =: FF 00 CF 05 
OFAF =: FF 00 FF 00 
OFBi = FF 00 FF 00 
OFB? : 10 FF 6F FD 
OFC1 : 80 CD EF FD 
ÖFC? : 00 FD 80 FD 
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12C1 
12C7 
ı12D1 
12D7 
ı12E1 
12E? 
ıi2Fi 
ı12F7 
15301 
1309 
1511 
15317 
1521 
13297 
153531 
1339 
1541 
1347 
1351 
1359 
1361 
1567 
1571 
1379 
1581 
1389 
1571 
1399 
15A1 
13A9 
15B1 
15BY 
13C1 
15C9 
ı15D1 
15D7 
13E1 
15E7 
ı15F1 
ı15FY7 
1401 
1409 
1411 
1419 
1421 
1429 
1451 
1459 
1441 
1449 
1451 
14597 
1461 
1459 
1471 
14797 
1481 

1489 
1491 
14977 
14A1 

147 
14B1 

1459 
14C1 

14C9 
14D1 

14DY 
14E1 

14E9 
14F1 

14F9 
1501 

1509 
1511 

15197 
1521 

1529 
15531 

1539 
1541 

15497 
1551 

15359 
1561 

1569 
1571 

1579 
1581 

1589 
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60 


AD 


26 


E39 


8D 


21 


MSE-Listing »Pac-Man«. 
Bitte verwenden Sie bei der 
Eingabe den MSE 
(Eingabehinweise auf Seite 54). 


EI: 
Ba & < 
kan .77. 


BF: ER 
ar 91 
00 D? 
EF 07 
AA AP 
00 Fi 
Er 1F 
AA ci 
00 07 
5°. 
AA D? 
00 21 
CF AF 
AA Fi 
00 5? 
CF 67 
AA 09 
00 51 
EF 7F 
AA 21 
00 6597 
EFF 97 
AA 5397 
00 81 
CF AF 
AA 51 
Ba 9A 
8D 94 
15 B8 
20 -F8 
00 9B 
CO BD 
Cc7 4B 
00 D2 
Cc7 05 
Cc9 C5 
[7 90 
OA Ei 
B5 c1 
ı8 Ei 
68 ES 
20 30 
CF 45 
00 92 
00 14 
B1ı SC 
64 DS 
CE D9 
8D 00 
oA FA 
73:' FE 
29 ıc 
8D 26 
A? BB 
40 OB 
SF 3A 
EO 87 
05 F7 
Ad 55 
8D 30 
Do F4 
CA D? 
05 E? 
CF 56 
8D OCc 
8SD 13 
8Dp 74 
co An 
FD 2B 
77: 07 
8D SC 
Er DE 
00. BE 
FD: .32 
#3 DC 
C9 BS5 
28 SF 
8D 21 
GP: 20 
66 AE 
AD EO 
cC9 74 
8SD 93 
CI 18 
FA FD 
8D FD 
02 EB 
69 EB 
CE 3 
A? DF 
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1591 : OO 8D 
1599 : 23 C9 
15A1 : ED 27 
15A9 : C2 A9 
15B1 : 38 ED 
15B7 =: C9. 8D 
1961 2727 C9 
15C7 : AD 26 
15D1: 3 EE: 24 
1309; 'E3::CD 
ıiSE1 : 27 C9 
15SE97 : AO 00 
15F1 = 3F 60 
15F9 : 29 07 
1501 : C9 &0 
1509 : 4A AB 
3a11 2 30 69 
1519 =» 07 18 
1521 = 45 40 
15827 : F8 18 
1631 z2.°E97 65 
164597 : OA OA 
1541 : AE 351 
16549 =: 90 27 
1451 : CO C9Y 
165% 2..20: OC 
16651 : EB 91 
1669 : C3 Bi 
1571 : 60 20 
1679 =: 3F 1D 
En er Be; 
16873:,.E0:.67 
1591 : 20 OC 
16979 : 91 3F 
1&Ai1 2: AD 20 
1&A? : CP? ZE 
14Bi1 : 00 &0 
1457 : C? 868 
14C1 =: A2 03 
14C9 =: Bl 3F 
1&D1 : Fi 50 
1607 3 OC CS 
iSsEl 2 ER:DO 
16E9 =: 8D 253 
16F1 : 8D 20 
14F9 : Bi 5F 
1701 = CI 20 
1709. ss 91. 3F 
1711 = Bi 5F 
1719: 1 9D. CA 
1721 =: C9 68 
7323.82 (EE723 
1751 2 29 8F 
17385 DEE 
1741 = EE 23 
1749 ı 29 8F 
173% 2 20: 0E 
13537 =: Se ER 
1761: = 3F.: 2% 
1769 = 20 OE 
1771 = 3F &0 
1779 2 3F 2D 
1781 : A7 00 
1797 = BD ZF 
1791 = 8D 21 
1797 : 9D 40 
17A1 :'20 70 
17A9 : C9 AD 
17B1 =: AYF 00 
1/BY : AD 2ZE 
17C1 : OO 5D 
17C9 2 2F CY 
17D1 : 8D ZF 
1709. 3: 8D 21 
17E1 =: C4 A? 
17EF: s' CI 20 
17F1 =: C9. AD 
17F9 =: AO 68D 
1801 : O0 SE 
1809 =: C9 CF 
1811 =: BD 70 
1819 = 23 C9 
1821 : DO EB 
18297 : OA 4C 
18318: 3:93 
18397 2; 20: 9E 
1941 =: SF EE 
1847 = 3F 09 
1851 =: DC 48 
1939.32 20 23 
18451 : AC 84 
1849 : F4 C5 
1871 : C5 C9 
1879 : AD 19 
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1B71 : AC 28 C8 AC 55 C8 AD 1A 12 
1B79 : C? CD SB C9 FO 3A 90 03 5A 
1B81 : 4C 82 CS 4C BE C8 AD 1A E7 
1B89 : C9 CD 3B C9 DO EB AZ 00 20 
1B91 : BE 22 C9 A2 40 BE 25 697 92 
1599 =: A288 BE 21 EI 20 73 E 38 
1BAl =: AO 00 BY FC CY9 FO 05 91 AB 
1BA? : 3F C8 DO F& AD 00 DC C9 41 
1BB1 : ö&F DO FF? CF 04 58 60 60 C& 
1BB? : AD 5B C? OA OA AA E8 BE GE 
ı1BCi : 25 C7 A? 00 SD 22 E79 AE A2 
1BC? : 5A C? ES 8A OA OA 8D 21 DD 
1BDi1 : C9 ZE 22 CY9 20 ES C3 AD FF 
ı1BD? =: SF 03 FO 053 AC ES C7 AE 97 
iBE1I : 3A CY9 ES SE SA C9 80 AD DB 
1BE? =: 3B E97 OA OA AA ES SE 25 SF 
iBFi : C9.A? 00 8D 22 C9 AD SA DE 
iBF9 2 E9 OA OA Sb 21 C9 ZE 22 :.39 
31CE01 = E9 20 ES E35 AB SF 03 FO: OE 
1609 2 03 AC ES C7 AE 3A C9 CA 9E 
1611 2 BE 5A C9 640 AE SBCIF ES FB 
1C17 : BA OA OA 8D 25 C9 A 00 04 
ıiC21 =: 8D 22 CY9 AD SA C9 OA OA 16 
1629 .2- BD 21 EI 2E 22 E7 Ab 21, EB 
1651 : C9 18 59 01 8D 21 C9 AD ES 
1639 3 22 C9:.649 00 8D 22 C9 20 EC 
1C41 : ES C35 AD SF 03 FO 01 60 D& 
ıiC49 = AE 3B C9 EB BE -SB:6C9 80: EF 
1651 z AD 3B CY9 OA OA SD 253 C9 7D 
1659 = A? 00 8D 22 C9 AD 3A C9 30 
iC61 : OA OA SD 21 CF ZE 22 C9 22 
1667 =: AD 21 C9 18 69 01 8D 21 3S 
1C71 =» C9 AD 22 £9 69 00 8D 22 E4 
1679 = CC? 20 ES C3 AD 35F 053 FO 86 
1681 =: 01 40 AE SB C9 CA SE SB &9 
1C89 =: C9 80 AO 00 A9 81 8D 04 SF 
1691 : D4 88 DO F8 CA DO F3 A? 5S 
1699 : 80 8D 04 D4 88 DO FB 40 ZF 
iCAl : A2 352 AO 00 88 DO FD CA 21 
1CAY? : DO FB 80 BF i9 80 40 20 DC 
iCBi1 : 10 08 04 02 Ol BF 04 40 4A5 
1iCB? : 01 80 02 CO 03 00 05 40 58 
iCC1 =: 06 80 07 CO 08 00 OA 40 OA 
1CC9 =: OB 80 OC CO OD 00 OF 40 BD 
1iCDi : 10 80 11 CO 12 00 14 40 70 
iCD? : 15 80 1& CO 17 00 19 AO 22 
iCE1 =: 1A 80 1B CO 1C 00 iE 40 DS 
1CEY:2 IE ZE. CEO rAAh FE CF 08 As 
iCF1 : O6 7E 04 06 7E CF 03 580 AC 
IErY 2. FE JE, 06 04 ZEIGF 03:96:77 
1D0O1 =: 7E CF 053 46 7E CF 04 06. 77 
1D07 : 7E &0 &0 7E CF 05 04 7E C? 
ıiD1l =: 7E &0 &0 7E CF 05 546 7E 53 
1D19 : 7E CF 07 06 7E 66 566 7E BS3 
1D21 : CF 053 646 7E 7E 664 5464 7E 9D 
1D27 : CF 053 06 7E 053 05 03 50 90 
1D51 =: 40 50 02 05 05 20 50 50 DE 
1D37? : 06 01 06 40 50 40 05 05 74 
1D41 : 02 50 50 20 14 28 14 28 A7 
1D49 =: OA 32 0A 32 OF OF 23 235 71 
1D5S1 : OA OA 28 28 14 28 14 28 93 
1D59 2: 0A 32 OA 32 OF OF 23 23 81 
1D61 : OA OA 28 28 BF 04 71 8A 76 
1D67 = 82 BS3S CF 053 8A 72 C5 2A cCcı 
1D71 : ZA ES CF 04 28 SC AO AO ACC 
1D79 =: BS CF 053 AO BC 72 CF 05 96 
iD8S1 : 8A 897 70 2F 28 28 2E 28 9F 
1D89 : 28 48 8F 78 44 44 78 60 Di 
iD71 :; SO 48 44 BF F4 A? 00 8D C6 
1D9%.2 19% E9 BD 1A 29 ,4C:ICF 01. FE 
1iDAi =: BF C4 BF 13 20 CC CO AO Ci 
1DA? =: 08 B? EO C9 99 FO C? BI BB 
1DB1: s :D8: E69: 79. :E8 C9:.88:D0:F1 - FF 
1DB? : AP 00 8D 05 D4 AF FO SD EO 
1iDC1 : 0& D4 AY OF 8D 18 D4 AC 03 
1DC? =: Fi E53 CF 00 AA CF 00 AA OE 
1DD1 =: CF 00 AA CF 00 AA EF 9B 11 
1iDDY = AA AA AA AA AA AA AA AA DE 


MSE-Listing »Pac-Man« (Schluß). 
Bitte beachten Sie die Eingabehin- 
weise auf Seite 54. 
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Cross-Ref 
optimiert 


Viele Verbesserungsvorschläge sind 


uns seit Erscheinen der Ausgabe 6/85 


zu dem Dokumentationsprogramm 
»Cross-Ref« zugeschickt worden. Die 
besten sind hier zusammengestellt. 
Jetzt ist es zum Beispiel auch möglich, 
Simons Basic-Programme bearbeiten 
zu lassen. J 


Der Ärger mit dem GOTO u 

Zunächst muß im Programm (siehe Listing 1) darauf geachtet 
werden, daß Zeichen innerhalb von Anführungsstrichen 
grundsätzlich überlesen werden. Das gilt insbesondere in 
DAIA- beziehungsweise REM-Zeilen. Das Flag »Y2« wird je- 
weils beim ersten Anführungszeichen gesetzt und beim näch- 
sten Auftreten, spätestens am Zeilenende (X=O), gelöscht 
(Zeilen 342 und 345 sowie 762, 764 und 820, 825). Zeilen- 
sprünge nach »THEN« (Token 167) mit nachfolgendem »GO- 
SUB« etc. werden in der alten Programmversion nicht Sen 
den. Die zusätzliche Zeile 495 testet bei vorausgegangenem 
»NEXT« (Flag »Y1« wurde dann in Zeile 358 gesetzt) die nach- 
folgenden Sprungbefehle »GOTO«, »RUN«, »GOSUB« und 
»GOTO« (Token 203 und 164), wobei das Flag für »GO« in Zeile 
359 gesetzt wurde; der Test auf nachfolgendes »TOx« erfolgt in 
Zeile 360. | | 

Da beim Erstellen eines neuen Strings in der Version aus 
64’er,- Ausgabe 6/85, kein Test auf ein bereits vorhandenes 
gleiches Sprungziel erfolgt (dies geschieht nur innerhalb eines 
Strings in Zeile 460), bringen die neuen Zeilen 450, 455 und 
458 Abhilfe; Entsprechendes gilt bei den Variablen für die Zei- 
len 920, 925 und 928. ER. 

Ein ganz wichtiger Punkt ist die Tatsache, daß »E« (ASCII- 
Code=6$9) nach Ziffern oder nach einem Punkt keine Variable 
ist. Dieses wird in Zeile 855 in Verbindung mit Zeile 90 
(X2=ASCIl-Code des vorausgehenden Zeichens) unter- 
Sucht. Längere Variablennamen, die im Commodore-Basic vor- 
kommen können, werden in der Programmversion falsch inter- 
pretiert. Durch die neue Zeile 952 werden maximal zwei Zei- 
chen und/oder »$,%H,(« (Zeilen 870 beziehungsweise 880) 
zugelassen. Da das nachfolgende Zeichen bereits in Zeile 870 
gelesen werden mußte, sorgt das Flag »Y3« dafür, daß in Zeile 
750 dieses Zeichen nicht übersprungen wird (letzteres gilt 
auch für die Zeile 965 beim Auftreten eines Anführungs- 
zeichens). 

Damit die Zeilensprünge in der richtigen Reihenfolge ausge- 
geben werden, sollten die Sortier-Routine (Zeilen 520 bis 
940) und die Ausgabezeilen 650 und 660 entsprechend der 
Variablen-Ausgabe (siehe. Zeilen 990 und 1140) geändert 
werden. | 

Einige der angesprochenen Punkte werden durch das bei- 
liegende Testprogramm (Listing 2) deutlich. Nach Eingabe der 
zusätzlichen beziehungsweise geänderten Zeilen dürfte einer 

"guten Programmdokumentation nichts mehr im Wege stehen. 
(Gerhard Löberi/tr) 
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X2=X:GET#1 ,A#: X=ASC (AF+CHRE(DB)):IF(64 A 
ND ST)=2@ THEN RETURN 

Y=2: Y2=® 

GOSUB 98 


: IF X=354 THEN Y2=NOT Y2 


IF Y2 THEN 338 

IF X=137 OR X=138 OR X=141 OR X=167 OR 
x=283 THEN Si#="":Y1=9:Y2=9:60T0 355 
IF X=203 THEN Y=1 ' 

IF X=167 THEN Yi=1 i 

GOSUR 98: IF X=32 OR X=164 AND Y THEN 3 

50 

IF LEN{PS$(I))<7B THEN 460 

IF RIGHT$ (PS# (I) ,S)=ZE$THEN 478 

NEXT: PS=FS+1: I=PFS:G60SUR 130:PS#(I)=SiF 

+": "N+ZE$:G60T0 478 

IF X=58 OR X>64 AND X<91 THEN 358 

IF Y1i THEN IF X=157 OR X=138 OR X=141 

DR X=2853 THEN 355 

IF X>127 THEN 358 

FOR I=-1 TO FPS-i 

FOR J=zI+1 TO PS 

IF LEFT$(PS$(I) ,S) >LEFT$(PS$(J) „5S)GOTO 
560 

PS#(B)="":FOR I=F5S TO 1 STEF-1 

IF LEFT$(PS#CI+1) „bH)<>LEFT$(PS$(I),6)T 

HEN FRINT#1,PS#(I):GOTO 688 

Y2=8: YI3=8 

Yi=@: IF Y3=@® THEN GOSUR 98 

Y3=@: IF X=8 THEN 748 

IF X=34 THEN Y2=NOT Y2 

IF YZ THEN 758 

IF X=151 OR X=143 THEN 888 

IF X=54 THEN Y2=NOT Y2 

IF YZ THEN 818 

IF X=697 THEN IF X2>47 AND X2<258 OR X2= 
46 THEN 758 | 

IF X=534 THEN YS=1:60T0 898 

IF X=36& OR X=37 THEN Vi1$=V1$+A$:GOSUR 
98: Y3=1:60T0 880 f 

IF X>47 AND X<5B OR X>64 AND X<91 THEN 

> 

IF LEN(VA$(I))<S5B THEN 930 

" IF RIGHT$ (VA (I) „SI=ZE$THEN 949 

NEXT VA=VA+1: I=VA:GOSUB 130: VA$(I)=Vvi1$ 
+" 2"+ZE$:GOTO 948 

IF Yi=8 THEN Vi$=Vi$+A$:Y1=1 

G0TO 849 


« 


© 64’er 


Listing 1. Diese Zeilen müssen Sie neu eintippen. Ver- 
wenden Sie bitte dazu den neuen Checksummer (Seite 
54) Ä 





180 
28 
>8 
42 
32 


&0 


72 


REM TESTPROGRAMM FUER "XREF" _ 

READ TEXT$,TEXTE$,TEX#(1) „ANZAHL 

IF AN>1ES THEN GOSUR 1088 

FRINT TE£AN 

GOTO 1902 

PRINT "*H1DOQODE*":REM <CEBM-M> 19888 <CRBM- 
G> 

DATA "ABC,DEF" „"UVW=:XYZ",„TTT,3 


1822 PRINT TE$S"TEST" 


© 64er 





Listing 2. Dieses Beispielprogramm sollten Sie einmal 





vor und einmal nach den Änderungen von »Cross-Ref 
64« bearbeiten lassen 





Simons Basic dokumentieren 


Zuerst einmal ein dickes Lob an Stefan Becker, den Autor 
der Dokumentationshilfe in der 64’er, Ausgabe 6/85, für sein 
‚hervorragendes Programm. Aber auch hier gilt: Kein Pro- 
gramm, das nicht noch besser werden könnte. 


Gier, 1 TE 


64er-online.net 


Als erstes fiel mir auf, daß eine Dokumentation von Simons- 
Basic-Programmen nicht möglich war. Hier die vorläufige Lö- 
sung: Folgende Zeilen müssen eingefügt werden: 

495 if x=100 then 330 

805 if x=34 then y=2 

806 if x=100 then y=3 

835 if y=3 and (x=49 or x=50 or x=51) len y=0 

836 if y=3 goto 750 

Folgende Zeilen müssen geändert werden: 

770 if x=34 or x=100 or x=131 or x=143 then z=0: 
goto 800 

820 if x=34 and y=2 goto 750 

920 ...:va$(i)=v1$+” :” 

Des weiteren empfand ich es als einigermaßen lästig, bei 
vielen Variablen ständig die Frage »Wollen Sie Bemerkungen 
eingeben?« beantworten zu müssen. Nach folgenden Ände- 
rungen kann man die Variablen beliebig durchsuchen und mit 
Text versehen, um danach durch Eingabe von »E« wie Ende 
zur Ausgabe zu gelangen. Außerdem kann man nun bei Varia- 
blen, die sich über mehrere Druckzeilen erstrecken, seine Be- 
merkungen auf alle zugehörigen Zeilen verteilen. Folgende 
Zeilen sind einzufügen: 

1105 if a$ ="e’ goto 1180 

1135 print ”fhome}{9down}”le$ 

Folgende Zeilen müssen geändert werden: 
1080 ..a$< >chr$(13) and a$ < >"e” goto 1080 


1020 open 1,0 


1160 ...: goto 1070 

Die folgeriden Zeilen sind zu löschen: 
1140 

1150 

1170 


Bei der Ausgabe ohne Zeilennummer genügt es im allgemer - 
nen, wenn eine Variable, auch wenn sie sich über mehrere Zei- 
len erstreckt, nur einmal ausgegeben wird. Die folgende Lö- 
sung berücksichtigt dabei die Bemerkungen, die sich über 
mehrere Zeilen erstrecken. Es sind folgende Zeilen zu ändern: 
1272 ..:goto 1275 
1273 if left$(va$(i+1),4) =left$(va$(i),4) then 1275 
1274 print#1,left$(va$(i), 8) 

1275 next i 

Die Abfrage »Nochmal/Weiter« läßt sich bei einer Ausgabe 

auf den Drucker durch Einfügen folgender Zeilen vermeiden: 
685 if dv=4 then 712 
1245 if dv=4 then 1269 

Meine letzte Anmerkung betrifft die leidige Garbage- 
Collection (siehe hierzu auch den Kurs »Effektives Program- 
mieren«, 64er, Ausgabe 1/85), die der Computer durchführt, 
wenn sein Stringspeicher voll ist, und er weiteren Platz 
braucht. Bei meinen längeren Programmen lag der Computer 
spätestens bei der Eingabe von Bemerkungen für längere Zeit 
stumm und schweigend vor mir. Folgende Änderungen kön- 
nen hier Verbesserung schaffen: 

1) Die Variable OB in Zeile 150 verkleinern. Sie gibt die Größe 
der Stringfelder an. Die Dauer der Garbage-Collection hängt 
aber in etwa vom Quadrat der Variablenzahl ab. Ich halte eine 
Angabe von OB=200 im Normalfall für völlig ausreichend. An- 
sonsten erscheint während des Programmlaufs eine entspre- 
chende Fehlermeldung. 

2) Das Ersetzen der speicherplatzverschwendenden Sortier- 
prozedur durch die SWAP-Routine aus der 64’er, Ausgabe 
1/85, Seite 123. Hierzu 

1) Zeile 550 ersetzen durch: 

950 sys 6000(ps$i(i), ps$(j)) 

2) Zeile 1000 ersetzen durch: 

1000 sys 6000(va$i(i),va$(j)) 

3) Eingabe im Direktmodus: 


84 Zar 





print (peek(45)+256* peek(46)) 

Den erhaltenen Wert aufschreiben! 

4) In den Zeilen 550 und 1000 den Wert 6000 durch den auf- 
geschriebenen Wert ersetzen. 

5) Das Programm mit SAVE”’XREF1.0”,8 abspeichern. 

6) Den Basic-Lader der SWAP-Routine laden und starten. 

7) Auf die Frage nach der Startadresse den aufgeschriebenen 
Wert eingeben. 

8) Das Dokumentationsprogramm mit LOAD”’XREF1.0”,8 la- 
den. 

9) Im Direktmodus eingeben (für »W« dabei den aufgeschrie- 
benen Wert einsetzen): 

POKE 45,(W+50)AND255:POKE 46,(W+50)/256 
POKE174,(W+50)AND255:POKE175,(W+50)/256 

Das Programm kann nun mit SAVE”XREF2.0”,8 abgespei- 
chert werden. 

Achtung! Es dürfen keine Veränderungen mehr vorgenom- 
men werden, die die Länge des Programms beeinflussen, da 
das Maschinenprogramm direkt hinter dem Basic-Programm 
steht! Das Zwischenprodukt ”XREF1.0” kann jetzt gelöscht 
werden. 


(Lutz Kleinostendarp/tr) 


Anpassung von Cross-Ref 
auf Datasette: 


Bedingt durch ein anderes Speicherformat auf Datasette ge- 
genüber der Floppy ist Cross-Ref mit den in 64’er, Ausgabe 
6/86 genannten Änderungen für Kassettenbetrieb trotzdem 
nicht lauffähig. Auch die Abfrage der Status-Variablen ist nicht 


Um Cross-Ref trotzdem auch für unsere Datasettenbesitzer 
zugänglich zu machen, ist folgendes zu beachten: 

Das zu bearbeitende Programm muß in einem »Pseudo- 
Floppy-Format« gespeichert werden. Dazu das Programm la- 
den und mit folgenden Befehlen im Direktmodus (also ohne 
Zeilennummern) neu aufs Band schreiben. 

OPEN 1,1,1,’name” [RETURN] 

PRINT #1,CHR$(PEEK(43));CHR$(PEEK(44) [RETURN] 
FORI=PEEK(43)+256* PEEK(44)TOPEEK(45)+256*PE- 
EK(46):PRINT #1,CHR$(PEEK(I));: NEXT Ma 
CLOSE1 [RETURN] 

Das File hat zwar jetzt das richtige Format, aber die Status- 
abfrage in Zeile 90 ergibt immer noch falsche Werte. Auf Dis- 
kette zeigt ein ST=64 nämlich das Ende eines Files an, auf 
Kassette dagegen bedeutet ST=64, daß ein CHR$(O) folgt! 
Die folgenden Änderungen berücksichtigen dies: 

90 GET #1,A$ : X=ASC(A$+N$) : IFX <>O THEN 
XxX=0 : RETURN 


95 XX=XX+1 : IF XX<3 THEN RETURN 
290 OPEN 1,1,0,NA$ : GOSUB 120 : IF X=2049 THEN 
310 


730 OPEN 1,1,0,NA$ : GOSUB 120 
Die Zeilen 1290 bis 1310 entfallen. 


(Stefan Becker/tr) 


Anmerkung der Redaktion: 

Auf der Leserservice-Diskette dieser Ausgabe befindet sich 
»Cross-Ref« in der verbesserten Version von Gerhard Löber 
und die Simons Basic-Version von Lutz Kleinostendarp. Auch 
ist die Löber-Version zusätzlich compiliert worden. Diese Ver- 
sion können wir allen Lesern wegen der gewaltigen Geschwin- 
digkeitsvorteile nur empfehlen. 
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Programm- 
Generator für 
den C 64 


Diese Routine kann Basic-Zeilen inner- 
halb eines Basic-Programms erzeu- 
gen, löschen und in einen String einle- 
sen, ohne Variablen zu zerstören. 


Das Programm (Listing 1) ist vollständig in Maschinenspra- 
che geschrieben und belegt den Speicherbereich von $C800 
bis $CA70O. Nach dem Laden ist eine Initialisierung nicht not- 
wendig. Um die Basic-Zeiger zurückzusetzen, ist nur ein NEW 
<RETURN > einzugeben. 






Zum Erzeugen einer Basic-Zeile ist die Zeile selbst in einem 


String abzulegen. Anschließend kann dieser String mit 
SYS 51200, String 

in das Basic-Programm eingebunden werden: Zum Beispiel: 
A$="100 S=SQR (2):PRINT S,S+100”:SYS 51200,A$ 


Mit dem Befehl SYS 51442, Zeilennummer, läßt sich eine 


Basic-Zeile innerhalb eines Basic-Programms löschen. 
Der Befehl 
SYS 51442,100 


löscht zum Beispiel die Zeile 100. Beim Generieren oder Lö. Lö- 


schen ergeben sich folgende Einschränkungen: 


1. Der Aufruf (SYS 51200,A$ oder SYS 51442,100) darf nicht 


innerhalb einer FOR-NEXT-Schleife stehen. 


2.SYS51200,A$ oder SYS 51442,100 darf nichtin einem Un- 


terprogramm stehen, falls sich die neue oder die zu löschende 
Zeile vor diesem Unterprogramm befindet. 

Auch kann der Programm-Generator Zeilen in einen String 
einlesen. Dazu muß der String vorher jedoch mit beliebigen 
Zeichen gefüllt werden. Dabei gilt: Anzahl der Zeichen > = An- 
zahl der Zeichen in der zu erwartenden Zeile. 

Es bietet sich natürlich an, den String mit Leerzeichen 
(CHR$(32)) zu belegen. 


73 ca c8 


programm : 'programm gen c8BBB cas2 c8dB : 
ee ar ern num aann c8d8 : 5f 8d 74 

cBeB : 5f ad 74 
c8BR : 28 fd ae 20 I9e ad 28 a5 ee c8e8 : d®@ db a? 
c888 : bu ad QaQ 85 57 b1 22 979 T7e cBfB :ı 79 c9 28 
c8i®2 : BO 92 c8 c4 57 da fa a9 897 cöfsS s 28 #7 b7 
c818 : 98 97 BB 02 a5 7a Bd 792 Ga c92aQ : a5 7b 8d 
c828 s ca a3 7b Bd 71 ca 39 ft 6i c9788 : bD Bi 48 
c828 : 85 7a a9 Bi 85 7b 28 75 18 t910 : 85 357 e5 
c858 : B@ 28 &b a9 208 79 a5 84 be c918 ı b1 Sf 85 
c838 : Bb Sc 72 ca 28 13 a6 18 e5 c920 : 59 a5 58 
c8480 : a5 351 85 57 4d 72 ca 85 6b c928 : 59 18 a5 
c848 : 597 a5 32 85 58 57 BB 85 8d c9S58 : a5 58 647 
c858 : Sa 38 a5 5f e9 Bi Bd 75 df c9758 ; 597 67 Bi 
c858 : ca a5 48 e97 2 8d 74 ca le c742 : DQ 85 5a 
cBö6B : aß BB bi 57 91 57 38 a5 68 c9748 3 dc a5 31 
c888 : 57 e?7 81 85 57 a5 58 e9 7d c9508 : 80 S8 bi 
c87B : BB 85 58 38 a5 59 e9 Bi if c958 » 5# 8d 73 
c878 : 85 59 a5 5a e7 00 85 5a c8 c96B : BD 971 5f 
c888 : ad 74 ca c5 58 dB db ad a9 c968 : ca 85 5f 
c888 = 73 ca c5 57 d@ dA a2 BB fb c97B : bi 5f dB 
c898 : 18 b5 2d 4d 72 ca 95 2d aa c978 : ca a5 9d 
c898 : e8 b5 2d 59 88 95 2d eB 097 c788 : e5 539 a5 
c8Baß : eß BB dB ec aß BO a5 5f b5 c988 : ad 75 ca 
cBaB : 91 Sf cB 25 68 9 FF cB 71 c9798 : ca Gd 72 
c8bB : a5 14 9 Sf c8 a5 15 91 ei cF7F78 : ca 67. BD 
c5b8 2 SF. c8 b9 fc 81 915 cB 35 c9aß : 70 ca ed 
c8cD =: cc 72 ca dd f5 aß DB 18 27 c9a8 : 71 ca e9 
cB8c8 : b1 5f 4d 72 ca 91 5f Bd a4 c9hbB : 78 ca 55 


° Zur 


on 


bi 
ca 
ca 
DD 
fd 
aa 
71 
ad 
of 


38: 


85 
37 
28 


as 
(==) 
Sf 
ca 
Bd 
ad 
db 


15 
de 
ca 
85 
72 


7a 


Anschließend kann die Zeile mit 
SYS 51642, String, Zeilennummer eingelesen werden. 
Beispiel: 


S=SQR(2):PRINT S,S+100 
lg 

SYS 51642,A$,100 

PRINT A$ 





Nach dem Start’dieses Beispiels mit RUN <RETURN> er- 
scheint auf dem Bildschirm die Zeile 100: 


S=SQR(2): PRINT S, S+100 
READY. 


Für dieses Programm gibt es nun eine Anzahl von Anwen- 
dungsmöglichkeiten. Esläßtsich zum Beispiel ein nur acht Zei- 
len langes Basic-Programm schreiben, das ein Maschinen- 
programm in DATA-Zeilen ablegt (Listing 2). 

Dabei wird etwa die Geschwindigkeit erreicht, die die ent- 
sprechende Routine im SMON hat. Außerdem wäre ein »intelli- 
gentes« Programm vorstellbar, das sich selbst verändert. Typi- 
sche Maschinenroutinen wie RENUMBER, FIND und AUTO 
sind natürlich auch denkbar. Sie sehen, die Möglichkeiten die- 
ses Programm-Generators sind nahezu unbegrenzt. 

(Michael Dietz/ah) 


12 Z=188:A=189: I=5120808:E=51818 

2B A$=STR$(Z)+"DATA ":Z=Z+A 

30 S$=STR$(PEEK (I) ) ss A$=A$+RIGHT$ (S$,LEN (S# 

ri) r" ," 

40 IF LEN(A$)<SS THEN I=I+1:IF I<E THEN 38 

SQ A$=LEFT$(AF,LEN(A$)-I) 

69 SYS 512RQ,A$:PRINT A#+:I=I+1:IF I<E. THEN 
20 

728 1=18:60T0 52008 

SoBBB SYS 51442,1:I=I+t1@: IF I<71 THEN 5208 

[r] 


© 64’er 


Listing 2. Mit nur acht Basic-Zeilen lassen sich 
Maschinenprogramme in DATA-Zeilen ablegen. 





5 69 28 91 75 c9b8 : 7b 68 208 fd ae 28 Fe ad ed 
ad 73 ca 85 21 c9cO : 28 a5 b& a5 22 85 59 a5 135 
85 48 bi 5f &4d c9c8 : 235 85 5a 28 fd ae 28 9e 5b 
Bd 73 ca 4c 48 c9d8 : ad 28 #7 b7 28 15 a6 bB 179 
ae 28 8a ad 87 c9d8 : BS 4c 61 ca a5 14 85 8453 8b 
7a 8d 79 ca 22 c9eQ : a5 15 85 42 a2 98 S8 28 Bd 
ca 28 13 a& Sc c9e8 : 49 bc 28 df bd aß ff c8 DB 
80 38 bi 5f ac c9fB : b9 BB Bi 91 59 dB ff a9 #f 
8d 72 cac8 cf c9f8 : 208 91 59 c8 B4 57 ad 85 dc 
88 a5 5f 85 23 cad2 : 84 58 ed 58 a4 58 bi 5f 88 
sa bi 37 91- -cB caß8 : f@ 57 c9 22 dß 19 a4 57 72 
67 B1ı 85 57 45 cai® : 91 59 e6 57 ed 58 a4 58 67 
85 38 18 a3_ 2 cai8 : bi 5f c9 22 fB Bd a4 57 eB 
59 a5 3a 49 36 ca28 : 91 59 e6& 57 4c 14 ca c9 26 
32 c5 59 .de a2 ca28 =: 88 19 99 a4 57 91 59 e6 bc 
57 da dö& aß 94 ca38 : 57 4c B2 ca c9 ff FB fS cf 
ed 72 ca 91 85 ca38 : 358 e9 7f aa aB ff ca fd bi 


c8 bi 5f e9 1f 
74 ca ad 73 ee 
74 ca 85 48 #7 
a9 ff Bd 73 58 
32 38 a5 14 Sa 
e5 3a bO 27 4 
11 18 ad 798 25 
9.78 ae ce 
7b 48 58 ad bf 
ca 85 7a ad S5d 
85 7b &B ad Da 
ad 71 ca 85 d3 


ca4B : BB cB b9 9e aß 18 fa 350 c5 
ca48 : f5 c8 b9 9e ad 38 Ad 84 ac 
ca58 : 5b a4 57 91 59 ed 57 a4 797 
cas8 5b 4c 49 ca 29 7f 4c 2b 9 
casß ca 68 BR DB DB BR DO DB 5b 


Listing 1 »Programm-Generator«. 
Bitte beachten Sie die - 
Eingabehinweise auf Seite 54. 
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Neues vom 
SMON 


Diese Erweiterung stellt elf weitere Be- 
fehle zur Verfügung. So läßt sich der 
Monitor zum Beispiel frei im Speicher 


verschieben und Sprites oder Zei-. 


chensätze können sehr einfach er- 
stellt und geändert werden. 


Um die Befehlserweiterung zu initialisieren, gehtman folgen- 

dermaßen vor: 

1. SMON absolut laden. 

2. Den Basic-Lader (siehe Listing) eintippen und abspeichern. 

3. Nach dem Start des Laders die Startadresse (dezimal) Ihrer 
SMON-Version eingeben: 

zum Beispiel 49152 (= $C000). 

4. Den erweiterten SMON zum Beispiel mit "SMONEX” Start- 
adresse Endadresse abspeichern. 

Die neuen Routinen werden, genau wie die meisten bereits 
vorhandenen, durch einen Buchstaben, zum Teil gefolgt von 
Adressenangaben, aufgerufen. Bei den ersten drei Ausgabe- 
befehlen kann der Speicherinhalt durch Überschreiben der 
Zeile geändert werden. 


Z 4000 (4100) (Zeichendaten) 

gibt den Speicherinhalt von $4000 (bis $40FF) folgender- 
maßen aus: Jeweils ein Byte pro Zeile wird in 8-Bit-Form darge- 
stellt. Dabei ist ein »*« ein gesetztes, ein ».« dagegen ein nicht 
gesetztes Bit. Die beiden Zeichen sind willkürlich gewählt und 
können durch Überschreiben der Speicherzellen $xE65, 
$xE2D (Bit = 1) und $xE69, $xES0 (Bit = 0) in den 
Bildschirm-Code (!) der gewünschten Zeichen geändert wer- 
den. 

Die Anwendung dieses Befehls liegt beispielsweise in der 
gezielten und anschaulichen Beeinflussung bestimmter Steu- 
erbits in VIC, CIA, etc. Andererseits lassen sich— besondersin 
Verbindung mit dem Kommando »Q« — Zeichendaten leicht 
modifizieren. | | 
H 4000 (4100) 

entspricht dem Befehl »Z« mit dem Unterschied, daß jeweils 
drei Byte pro Zeile ausgegeben werden. Das entspricht dem 
Format für Spritedaten. Auf diese Weise steht mit dem erwei- 
terten SMON ein kleiner »Sprite-Editor« zur Verfügung. 

N 4000 (4100) (Normaldarstellung) 

interpretiert den Speicherinhalt von $4000 (bis $40FF) als 

Bildschirm-Code und gibt 32 Zeichen pro Zeile aus. 


U 4000 (4100) (Übersicht) | 

Wie »N«, jedoch werden in einer Zeile 40 Zeichen darge- 
stellt. Änderungen sind nur mit »N« möglich. Dieser Befehl 
dient hauptsächlich dazu, im Speicher abgelegte Bildschirm- 
informationen so auszugeben, wie sie tatsächlich im 
AO-Zeichen/Zeile-Format aussehen würden. Dieser Befehl ist 
recht nützlich, um professionelle Videospiele zu analysieren, 
da hier Spielszenen oft im Bildschirm- Code gespeichert sind. 
E 4000 (4100) (Erase) 

ist der bereits in 64’er Ausgabe 2/85 vorgeschlagene 
Erase-Befehl zum Füllen des Speicherbereiches von $4000 
bis $S40OFF mit $00. 
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Y40 

kopiert die gorahlens SMON-Version in nur drei Sekunden 
nach $4000 bis $AFFF und nimmt dabei alle notwendigen An- 
passungen vor. Die ursprüngliche Speicherversion des Moni- 
tors bleibt unverändert. Mit »G 4000« kann man in den neuen 
SMON springen. Von dem Byte-Wert, der übergeben werden 
muß, wird nur das obere Nibble .($4) gewertet, so daß sich 
theoretisch 16 SMON-Versionen im Speicher unterbringen 
lassen, wobei natürlich nicht alle Möglichkeiten sinnvoll sind. 

Auf diese Weise läßt sich stets die erforderliche Speicher- 
version herstellen, ohne daß langwierige Änderungen notwen- 
dig sind. 
Q 2000 

kopiert den RS aus dem ROM von $DO00 bis. 
$DFFF in das RAM nach $2000. Dort kann er mit dem Befehl 
»Z« nach Belieben geändert werden. Möchte man zum Bei- 
spiel das Zeichen »A« in ein »Ä« umdefinieren, so ist der Zei- 
chensatz mit »Q 2000« ins RAM zu kopieren. Anschließend 
kann mit »Z 2000 2015« der Bereich in binärer Form auf dem 
Bildschirm ausgegeben werden, in dem auch das Zeichen »A« 
steht. Dieses kann nun (siehe Bild) in ein »Ä« geändert werden, 
indem man mit dem Cursor an die zu ändernde Stelle fährt und 
für einen Punkt, der gesetzt werden soll, ein »*« und für einen 
Punkt der nicht gesetzt werden soll ein ».« setzt. So, jetzt ist 
der Zeichensatz umdefiniert, aber noch nicht aktiviert. Als 
nächstes muß dem Videocontroller die Startadrese des neuen 
Zeichensatzes mitgeteilt werden. Dazu ist die Adresse 
$D018, in der eine hexadezimale 15 steht, durch eine hexa- 
dezimale 18 zu ersetzen. 
J 

bringt den letzten Ausgabebefehl (K, D, M, Z, H, N, U) auf 
den Bildschirm zurück. Mit RETURN wird der letzte Befehl 


S4ER et mal ausgeführt. 
um Schluß noch ein Tip: 


DATA-Zeilen in Hex-Byte-Darstellung sind wegen ihrer kon- 
stanten Länge (immer zwei Ziffern pro Wert!) übersichtlicher 
als solche mit dezimalen Zahlen. Da für die Ausgabe von Hex- 
Werten bereits alle Routinen im SMON integriert sind, kann der 
»B«-Befehl (Basic-DATA-Zeilen erzeugen) durch Verändern ei- 
nes einzigen Sprungbefehles dahingehend manipuliert wer- 
den, daß der Speicherinhalt künftig in Form von Hex-Byte aus- 
gegeben wird: 

Disassemblieren Sie dazu den Byte-Ausgabebefehl mit »D 
x99F« und ersetzen »JSR BDDi« durch »JSR x32A«. Für das 
»X« muß der 4-KByte-Block, in dem die zu ändernde SMON- 
Version steht, eingesetzt werden. Liegt Ihre SMON-Version 
bei $C000, so ersetzen Sie das »x« durch ein »CG«. 

Die Gesamtlänge der DATA-Zeile kann außerdem durch Ver- 
ändern der Speicherzelle $x9AE variiert werden. Bei dem 
Wert $1C werden zum Beispiel genau acht Hex-Byte pro Zeile 
ausgegeben. (Mark Richters/ah) 


12O REM Kun 
119 REM 
128 REM 
1580 REM 


<258> 
<1597> 
<222> 
<179> 
<B05> 
<B858> 
<837> 
<B78> 
<229> 
<972> 
<176> 
<248> 
<189> 
<187> 
<052> 


SMON — ERWEITERUNG 


* 
* 
* 

14Q8 REM * MARK RICHTERS 

1580 REM * ALLERSTR.4 

* 2885 DYTEN 
* 
* 
Ei 


TEL.: 34287/1878 


1650 REM 
178 REM 
188 REM 
198 REM 
zuB : 
218 PRINT"BITTE DIE STARTADRESSE" 

228 PRINT" IHRER SMON-VERSION EINGEBEN!" 
238 INPUT H : H=H/4996 

248 IF H<>INT(CH) THEN 2182 


Erweiterung zum SMON. Bitte die Eingabe-Hinweise 
auf Seite 54 beachten. 
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252 


Ss6a0 


DIM W(75) 
FOR I=B TO 7 
= Wi48+I1)=I 
= WiäS+tI)=I+18 
NEXT I 
FOR I=1 TOD 4 
READ K,Z : K=kK+H*4995 
FOR J=K TO K+Z-1 
READ A 
A=W(ASC(A#F)) 
B=W(ASC (RIGHT$ (A#,1))) 
S=-S+A+B 
IF ASC(A$)=42 THEN A=H 
P=Ar16+B : POKE J,P 
NEXT J 
NEXT I 


IF 5=7851 THEN FPRINT"OK!":GOTO 478 
PRINT"FEHLER IN DATAS !" 
STOP 


DATA 97,7 
DATA 27,3A,3B,20,28,29,21 


DATA 739,28 

DATA A2,26,DD,61,*8,F0,08,CA 
DATA 18,F8,A9,2E,28,D2,FF,2® 
DATA CA,*2,C9,2E,F@,F9,4C0,85 
DATA*F ,4C,B2,*F 


DATA 781,2 
DATA F@,ED 
DATA 3593,503 
DATA A9,890,2C,A9,29,85,AB,2® 
DATA 64,*2,24,AB,198,03,A2,29 
DATA 2C,A2,28,29,40,*3,20,23 
DATA*3,AQ,26,A2,00,A1,FB,0A 
DATA 48,B2,03,A9,2E,2C,A9,2A 
DATA 91,D1,AD,86,02,91,F3,68 
DATA C8,E8,E8,898,D9,E9,20,67 
DATA*3,24,AB,59,84,CQ,1E,78 
DATA DA,22,5D,*4,972,04,60,A2 
DATA 88,2C,AQ,18,20,7E,*2,28 
DATA B8,*2,A2,08,A9,08,85,AA 
DATA 20,CA,*2,C9,2E,F@,87,C9 
DATA 2A,F@,@4,4C,D1,*2,18,26 
DATA AA,88,CA,D®,EB,A5,AA,81 
DATA FB,C1,FB,D®,EE,29,67,*3 
DATA C9,80,D9,D6,60,A9,80,2C 
DATA A9,09,85,AB,20,64,*2,20 
DATA 51,*3,24,AB,10,2B,A9,21 
DATA 28,D2,FF,20,23,*3,AQ0,88 
DATA 2C,A2,00,A2,00,A1,FB,202 
DATA 4F,*4,D@,F7,22,5D,*4,90 
DATA DE,608,29,7E,*2,A2,00,AQ 
DATA 88,B1,D1,81,FB,Ci,FB,D® 
DATA AA,20,56,#4,90,F3,48,28 
DATA 8D,*2,29,F@,85,FF,2@,3C 
DATA+F ,20,D6,*9,20,3C,#F ,A9 
DATA 14,85,FB,A9,22,85,FF,85 
DATA FC,AF,D1,85,FD,A9,0F,85 
DATA FF,85,FE,29,68,*A,AB,20 
DATA AZ,@D,ED,F2,*F,85,FF,85 
DATA FC,CA,BD,F2,*F,85,FB,Bi 
DATA FB,29,2F,@05,FF,91,FB,CA 
DATA 12,E8,A97,2B,85,FB,A9,28 
DATA 85,FF,85,FC,A@,35,B1,FB 
DATA 29,0F,05,FF,91,FB,88,88 
DATA 18,F4,A7,DE,85,FB,A9,BF 
DATA 25,FF,85,FC,AB,13,B1,FR 
DATA 29,0F,25,FF,71,FB,88,88 
DATA 18,F4,68,A5,FF,85,49,20 
DATA 43,*F ,68,68,29,F20,85,A5 
DATA 18,69,19,85,A7,A9,09,85 
DATA A4,85,46,85,A8,60,20,7A 
DATA*2,A9,89,40,07,*9,28,7E 
DATA*2,AD,28,A9,DA,84,FD,85 
DATA FE,78,49,83,85,21,A2,1® 
DATA Bi1,FD,71,FB,C8,D8,F9,E& 
DATA FC,Eö,FE,CA,DQ,F2,A9,27 


1099 DATA 85,01,58,60,48,C9,4A,D® 


DATA 12,AQ,27,B9,008,42,91,Di 


88 drap 


1118 DATA 88,19,F8,68,C64,D6,4C,D6 <214> 
1122 DATA*2,AB,26,D9,D7,*F,D@®,BA <187> 
1138 DATA AB,27,B1,D1,77,09,02,88 <BR3> 
1142 DATA 10,F8,88,18,EE,68,4C,FF <033> 
1152 DATA*2,A2,0A,DD,D@,*F,FO,86 <139> 
1148 DATA CA,D®,F8,4C,D1,*2,28,C5 <228> 
1170 DATAxF ,4C,D6,*2,8A,BA,AA,BD <009 > 
1188 DATA DD,*F,48,BD,DC,*F,48,658 <111> 
1190 DATA 28,29,21,45,59,51,48,5A <209> 
128@ DATA 4E,55,44,4B,4D,52,*E,4F <203> 
1210 DATA+E,B2,*E,56,*F,C7,*E,5E <099> Ri 
1228 DATA*F ,DR,*+E,08,*E,85,*E,88 <157> 
1232 DATA+E,26,20,87,23,2D,2C,5C <@76> 
1242 DATA 8C,F5,0C0,A2,2D,84,8E <224> 
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4200 
»4BB1 
34202 
4005 
42004 
4025 


34006 


4207 
108 
4007 
’420A 
) 4GB 


}40R0C 
) 4BBD 


> 4BBF 
42182 
»4B11l 
4812 
4215 
24914 


zuattstt,. 
„KEl.RR, 
„ERlRER, 
„HRltER, 
Hu. unn 
„EE...%, 
an#tERr*,. 
„nnatt,..n 
„uatttt,. 
„#Rr,.*%, 
„KRERER, 
„#R..*%, 
„ER. #%*, 
„ER..3#%, 
zunnannnm 
„FRE, . 
„EE..#%, 
„ER... 3%, 
„KERtE,. 
„ERl.#%, 


) 4200 
4201 
4802 
4885 
) 42304 
4205 
4206 
4227 
4208 
42007 
> 4B0A 


>4BBR 


I4B0C 
) 4BOD 
)4BBE 
)a4Bar 
24210 
YaB11 
»4Q12 
34215 
34214 


Erweiterung zum SMON. (Schluß) 


aunttRR,. 
„RaH..*%*,. 
„RE.NR%, 
„ar.iRk, 
„HH uun. 
„Kun. #, 
„HERE... 
„KRHl.#R, 
aut, 
„#r..#%. { 
„KRANK, 
„RR..*%*, ) 
„##..#%. 
„#KHARR,. 
„KR..#8. 
„KH.%%8, 
„KiHur,. 
„ERl.#%#, 


Bild. Originaler und abgeänderter Zeichensatz. 
Aus dem A wird ein A. 


Programme nachladen 


Wenn man von Basic aus ein Programm nachladen will, so 
ist im allgemeinen die Tatsache störend, daß der Interpreter 
anschließend das Basic-Programm neu startet. Mit folgender 


Befehlsfolge wird dies umgangen: 
SYS 57812”name”,8,1:POKE 780,0:SYS 65493 


Das gewünschte Maschinenprogramm wird geladen, und 
das Basic-Programm mit dem nächsten Befehl fortgesetzt. 

Wenn man statt ....,8,1 die Sekundäradresse ...,8,0 setzt, und 
im X- und Y-Register des 6510 (Speicherstellen 781 und 782) 
Low-Byte und High-Byte einer bestimmten Adresse angibt, so 
wird das Programm an diese Adresse geladen. Eine Anwen- 


dung wäre zum Beispiel eine Merge-Routine: 
1000 AD=PEEK(45) +PEEK(46)*256—2 . 
1010 AH=INT(AD/256) 

1020 AL=AD—256*AH 

1030 POKE 781,AL 

1040 POKE 782,AH 

1050 SYS 57812”name”, 8,0 

1060 POKE 780,0 


1070 SYS 65493 
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Gelöschte Files retten 


Hat man versehentlich ein Programm auf Diskette gelöscht, 
so gibt es eine einfache Möglichkeit, dieses wieder zu retten: 
LOAD ”*”8. Voraussetzung ist allerdings, daß man inzwischen 
noch kein anderes File von Diskette geladen hat. 

Dieser Befehl lädt das zuletzt bearbeitete Programm von 
Diskette; auch wenn dieses inzwischen gelöscht wurde! 

(Michael Keukert/tr) 


»Kopierschutz« für Datasette 


Auf Datasette läßt sich sehr leicht ein wirkungsvoller Softwa- 
reschutz erzeugen: 

Es besteht nämlich beim C 64 die Möglichkeit, einen bis zu 
172 (!) Zeichen langen Programmnamen abzuspeichern. Die- 
ser wird zwar beim Laden nicht angezeigt, steht aber trotzdem 
ab Adresse 849 im Speicher. Dort kann man ihn dann gezielt 
auf bestimmte Zeichen untersuchen. 

(Peter Dreuw/tr) 


Neue Farben für den SMON 


Da die Farbkombination des SMON meiner Meinung nach 
recht ungünstig gewählt ist, hier mein Verbesserungs- 
Vorschlag (für SMON $C000): 

Monitor Hintergrund und Rahmenfarbe hellblau ($C220: OE) 
($CFC7: OE) 
($C228: 00) 
($C36F: 06) 
($C377: OE) 
($SCEOA: 06) 
(Björn Hendrik Gemein/tr) 


Monitor Schriftfarbe schwarz 

Basic: Schrift- und Rahmenfarbe blau 
Basic: Hintergrundfarbe hellblau 
Diskmonitor Rahmenfarbe blau 


Hi-EDDI auf Star SG-10 


Betrifft: Anpassung der Druckerroutine HI-PRINT von Hl- 
EDDI an den SG-10. 
Folgende Änderungen müssen an der Druckerroutine vorge- 
nommen werden: 
A60 DATA 4: REM Direktkanal 
550 DATA 27,51,15,255,255: REM Zeilenabstand 15/144 
Inch 
580 DATA 27 103,4,255,255: REM Grafikmodus 4 

In dieser Betriebsart werden Kreise in Y-Richtung etwas ge- 
dehnt. Wer auf den Ausdruck zweier Bilder nebeneinander 
und auf Großbilder verzichtet, sollte folgende Werte eingeben 
(Zeile 460 muß natürlich trotzdem geändert werden): 
550 DATA 27,51,16,255,255: REM Zeilenabstand 16/144 
Inch 
580 DATA 27 103,5,255,255: REM Grafikmodus 5 

Dafür werden Kreise auch als Kreise dargestellt. Wenn man 
breiteres Papier als A4 verwendet, kann man auch zwei Bilder 
nebeneinander und Großbilder drucken. Der Drucker muß auf 
Star-Betriebsart eingestellt sein (siehe Handbuch). Der User- 
Port kann weiterhin als Parallelschnittstelle verwendet werden. 

(Kurt Reiter/tr) 


3D-Zeichensatz 


Dreidimensionaler Zeichensatz auf dem © 64 (nicht SX 64)? 
Kein Problem, mittels eines einzigen POKE: 
POKE 53270,250 

Man sollte aber a) über einen Farbmonitor oder Farbfernse- 
her verfügen, und b) die Hintergrundfarbe mit POKE 53281,4 
auf violett setzen. Dadurch kommt der Effekt besser zur Gel- 
tung. 

(Matthias Eberhardt/tr) 
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Das 64’er Extra ist eine Ex- 
tra-Leistung für unsere Le- 
ser. Sie finden hier geballte 
Informationen für Ihren C64 
zum Herausnehmen und 
Sammeln. =, 
Im 64’er Extra 2 finden Sie 
eine komplette Übersicht 
über alle Register des Vi- 
deo-Chips im C 64. Damit ha- 
ben Sie auf einem Blick alle 
Informationen über: 
. — Spritesteuerung 
— Farbgebung 
. — hochauflösende Grafik 
— Multicolor-Modus 
— Zeichensatz 
— Scıolling. 
— Rasterzeilen-Interrupt 


Geballte Information, ver- 
ständlich und übersichtlich 
präsentiert, das ıst das Kon- 
zept des b4’er Extra. 

Ob Sie sich die Extra-Sei- 
ten als Poster über Ihren 
Schreibtisch hängen, oder 
einmalin der Mitte gefaltetin 
einer Plastikhülle griffbereit 
neben Ihrem Computer un- 
terbringen — in jedem Fall 
bekommen Sıe mit der Zeit 
ein einzigartiges Archiv 
über Ihren Commodore 64 
zusammen. 

Diese zweite Ausgabe des 
64er Extra bringt Ihnen eine 
Übersicht über den VIC II- 


Farbquelle 
Bildschirmfarbe 
Sprite-Mehrfarbenregister 0 


Chip, der inIhrem C 64 alles 
steuert, was irgendwie mit 


‚Farbe, Grafik oder Zeichen- 


satz zu tun hat. Zu jedem Re- 
gister finden Sie die Bedeu- 
tung der einzelnen Bits im 
Klartext erläutert. Ob Anfän- 
ger oder Profi, hier haben 
Sie in jedem Fall eine kom- 
pakte, vollständige Über- 
sicht über den VIC II. Sıe er- 
sparen sich damit umständli- 
ches Blättern im Handbuch 
und anderer Literatur, und 
brauchen sich auch nicht mit 
unverständlichen Bezeich- 
nungen und Abkürzungen 
herumschlagen. ° 


Sprite-Farbregister 
Sprite-Mehrfarbenregister 1 





Herkunft der vier Punktfarben im Sprite-Mehrfarben-Modus 


Die Register des VIC II-Chips (msb = höchstwertiges Bit einer Adressen- oder Positionsangabe) 


Bor | me | mer | me | ms | me | m | mn | m | me 


| o0208 | soon | 
sa | sm 
a | mas | 800 | 
a] san | so | 
a] Bean | son | 
5] ssass | s0os | 
os | sease | 80006 | 
7 | ssass | #0oz | 
| soze | sDons 
oe] soasz | snone 


X-Position des Sprite Nr. 0 
Y-Position des Sprite Nr. 0 
X-Position des Sprite Nr. 1 


VPösition des Sprite Nr. 1 
X-Position des Sprite Nr. 2 
Y-Position des Sprite Nr. 2 
X-Position des Sprite Nr. 3 
Y-Position des Sprite Nr. 3 


X-Position des Sprite Nr. 4 
Y-Position des Sprite Nr. 4 


























eh ee ne a rn 0 een N ee, 
Ba en a] En ee Mn us 
ri | me ae | en Eee | 
BR [san am |. u So ET erkenne ne eo] 
ie ssana | Son | I xPoskiandesäpekeng 
er ag rege | TU 0 TV gre en 


$D010 Spr. 7, Spr. 6, Spr. 5, Spr. 4, Spr. 3, Spr. 2, Spr. 1, Spr. 0, 
msb X-Pos. msb X-Pos. msb X-Pos. msb X-Pos. | msb X-Pos. | msb X-Pos. | msb X-Pos. | msb X-Pos. 
l = Bild- 


$ DO msb des Schaltbit für | Schaltbit für | Schaltbit für | Schaltbit Wert der Zeilenverschiebung in 
schirmfarbe 


18 | 83266 | $D02 Rasterregister. Dazu kommt das msb in Bit 7, ee 17 
20 | 53268 | $DoM Lichtgriffel Y-Position 


“ ) 3 


32 ur 








































Raster- veränderten | Hochauflö- Bildschirm Y-Richtung beim Smooth Scrolling 
registers Hintergrund- | sungsmodus »yaus« 
(Reg. 18) farbmodus l = einge- | O0=normaler 
l = einge- schaltet Bildschirm 










schaltet 


Ein- und Ausschalten von Sprites. 0 = Sprite aus, l = Sprite an 





















Schaltbit für Schaltbit 
Mehrfarb- | für Spalten- 


Reset-Bit, 
muß (0 sein, 


Wert der Spaltenverschiebung in X- 
Richtung beim Smooth Scrolling 



















damit VIC-II- modus zahl 
Chip arbeitet | 1 = einge- 0 = 38 
schaltet Spalten 
1 = 40 


Spalten 
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UBER EN M Ir Te ToTweTm] zum 

Setzen einzelner Bits per Lee Trelsela2[16leial2 Ts fizsieslatislslal 21 Jnelselaeıslsıal2ıı 
En. RT RBB HARTE SELBER E 
Recisters BIT: gemunzahtes Lam 11 IT| y | Ba A U ER EEE 
Bit, alsoeineZahlzwischen0o |zue2 |) |, I, To 7 ST, | er 
KT. TTTBEH ERBE BISHEERZS EST TELLER 
POKE ADR, PEEK(ADRJOR [ze | TI ı J 7 I PT TI TI, Def TJıa Tea | | 
21 BIT DIBSREZISEBRSBZEEZSIBEISBEZLBEIB > 
Löschen einzelner Bits in |zese | ' | ı Jı I1*1 , I, Fı FFTI TER De b IT| 
WOW Registern gerBasesı [sel II TIL II TI Tal TI EItteRE Pe 
PORE- ADB, BEER (ADBy [me | I a ei en 
ars ie LINSE DRERAE TEE ERBE 
Be Rio am EFF HH HH HE 
a ee ER 7 rn rn ae U I en 
Selber 2 TEE EERE KIT ETCHE RB EREFBE D 
ae nl u nm 
as TRETEN STERN ISBDT ON EBEHE TEE 

Beispiel: POKE 53277, PEEK | 

(5327 OR 217 CDRNENEEEN BUREEZERAERNEENN U 
bewirkt, daß Sprite 7 in KENNER NBEN KENN ENB ANZ IS UEE 
X-Richtung vergrößert wırd. ER E SEBWZILREEHIURSEANF Bar ehe 
I — 
Ein Sprite-Entwurfsblatt | Zeit 20 | 4 240 ak EBEBI BEN ae 


Mehrfarben- 
register O 


zum fotokopieren 


Sprite- 
Farbe 


Hintergrundfarbe 
(transparent) 


Mehrtarben- 
register 


Setzen, löschen und Abfragen einzelner Bits 












 Bit6 hex 





Sprite-Vergrößerung in YRichtung.O = n 
Sprite 7 Sprite 6 Sprite 5 i 


Startadresse Textbildschirm Startadresse Zeichengenerator oder 
Ä 5»€n HiresBitmap 


Interrupt-Flaggen-Register Lichtgrif- 
Interrupt fel-Inter- 
rupt-Flagge| Kollision 


1 
3 
IB 


$ D017 53271 


(unbe- $D018 53272 
nutzt) 


$D019 53273 SE 
Be 


sooo | um | m 
sm | sum | m 
non | nm | m 
[soon | mm | a 


I (unbem  | __ Farbedeskildschirmrahmens | 5020 | asaso | a2 
nem | Hintergmundiarbe Nn0(normale Hintergrundfarbe) | $Dosi | s9a6ı | ss 
nem | __ Himergmumdtanbeien | $Doa2 | eoze2 | 
I dunben | pinergmundabehn | $Dogs | aaee = 
I (ambem) | > Minergmumdarbele | $moae | sans 

37 


Interrupt- 
Flagge 
Kollision 


Interrupt-Masken-Register 
Interrupt 


. Lichtgriffel- 
Interrupt- |Sprite-Koll.- 
Maske Maske 


Sprite/- 
Hinter- 
grund- 
Kollision- 
Maske 
Sprite/Hintergrund-Prioritätenregister. 0 = Sprite hat Priorität, 1 = Hintergrund hat Priorität 
Sprite 6 Sprite 5 Sprite 4 Sprite 3 Sprite 2 Sprite | Sprite 0 


Interrupt- 
Maske 


Sprite 7 


Sprite-Mehrfarbmodus-Register. 0 = Normaldarstellung, 1 = Mehrfarbmodus-Darstellung 


Sprite 6 Sprite 5 Sprite 4 Sprite 3 Sprite 1 
Sprite-Vergrößerung in X-Richtung. 0 = normale Größe, 1 = doppelte Größe 


Sprite 6 


Sprite 2 Sprite 0 


Sprite/Sprite-Kollision. 0 = keine Berührung, 1 = Berührung 


Sprite 6 
Sprite/Hintergrund-Kollision. 0 = keine Berührung, 1 = Berührung 


Sprite 1 Sprite 0 





damen | sprteMehrfarbenegisterMino | smozs | sazs | 
I danbenun | Spste:Mehifarbenrkegisterlinı | $mo2e | aszs | 
ee | emo] een | 
ne pe ae | $Doaa | eszeo | 
ne Spree | $DonB | anaeı 


2 
(unbenutzt) Sprite 7, Farbe 


> 
(eb) 
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Musik-Kurs 


C 64 





Dem Klang 
auf der Spur 








(Teil 9) 


In diesem Teil wird gezeigt, wie man 

dreistimmige Musikstücke programm- 
esteuert, schnell und zeitexakt auf 

ei C 64 wiedergeben kann. 

So ganz nebenbei erfahren Sie eine 

Menge über die Interrupttechnik. 


Fe einige Grundlagen 
zum Sequenzer. Untereinem 
Sequenzer versteht man ein Ge- 
rät oder Programm, das einen 
Synthesizer mit einer vorpro- 
grammierten Tonfolge ansteu- 
ert. Die zentrale Rolle spielt da- 
bei das genaue Einhalten eines 
programmierbaren Zeitmaßes. 

Musikstücke werden übli- 
cherweise in Takte von etwa 1 
bis4Sekunden Länge eingeteilt. 
Am gebräuchlichsten ist der %- 
Takt, der die Länge einer gan- 
zen Note hat. Andere gebräuch- 
liche Taktarten sind %, %, %, %, %. 
%h. Diese Angaben betreffen al- 
lerdings nur die Zählweise der 
Takte und nicht das Tempo eines 
Musikstücks. So sind zum Bei- 
spiel %- und %-Takt bis auf die 
Zählweise vollkommen iden- 
tisch. 

Die Notenlängen werden in 
Bruchteilen der ganzen Note an- 
gegeben: 


Ganze Note 


Halbe Note 


Viertelnote 
Achtelnote 


Sechzehntelnote 


Es kommen auch ungeradzah- 


lıge Vielfache dieser Notenlän- _ 


gen vor. Durch Punktierung 
kennzeichnet man die Verlänge- 
rung einer Note um die Hälfte ih- 
rer ursprünglichen Länge: 
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Älle diese Notenlängen pas- 
sen in ein Raster, welches eine 
ganze Note in 16 oder 32 gleiche 


.Zeitabschnitte teilt. Es werden 


aber häufig auch sogenannte 
Triolen (Drittelnoten) eingesetzt. 
Zum Beispiel Achteltriolen, 


3 


dd 


das sind drei gleichlange Noten 


- mit der Länge einer Viertelnote. 


Aus diesem Grund sollte das 
Zeitraster (die Anzahl der Zeit- 
abschnitte, in die der Sequenzer 


eine ganze Note eitteiltaaushı in 


den Faktor 3 enthalten. Ein sinn-. 
volles Zeitraster ist zum Beispiel 
96 (=3x32). 

Das Tempo wird in der Musik 
in Schlägen pro Minute (beats 
per minute: bpm) gemessen. Ein 
Schlag entspricht dabei einer 
Viertelnote. Der sinnvolle Be- 
reich für dieses Maß liegt bei et- 
wa 40 bis 240 bpm. Beim schnel- 
len Tempo 240 bpm dauert eine 
ganze Note genau eine Sekun- 
de. Der Sequenzer muß dann 96 
Schritte pro Sekunde ausführen. 


Programmtechnik 


Ein Sequenzer ist von der zu‘ 


erbringenden Funktion her ei- 
gentlich ein sehr einfaches Pro- 
gramm. Seine Leistungen sind 
schnell aufgezählt: 

— Tonhöhen steuern 

— Triggerung der einzelnen 
Stimmen (GATE ON und GATE 
OFF) 

Diese Steuerungen müssen 
zeitgenau und unabhängig von- 
einander für drei Stimmen erfol- 
gen. Darüber hinaus wären eini- 
ge Zusatzfunktionen sinnvoll: 

— programmierbare 'Tempoän- 
derungen | 

— programmierbare Sound- 
wechsel 5 

— programmierbare Änderung 
der Inhalte beliebiger Speicher- 
plätze (Parameter-Änderung) 

Es soll zunächst ein einfacher 
Basis-Sequenzer entwickelt 
werden, der sich dann leicht um 
die genannten Zusatzfunktionen 
erweitern läßt. Die Erweiterun- 


gen sollen über Vektoren, also 
ohne Änderung des Grundpro- 
gramms, an dieses angeschlos- 
sen werden können. 

Ein Sequenzer ist, ähnlich wie 
der in dieser Reihe veröffent- 
lichte Modulator, ein Programm, 
dasin regelmäßigen Zeitabstän- 
den eine Leistung erbringen 
muß. Der Aufruf per Interrupt, 
ausgelöst durch einen Zeitge- 
ber, bietetsich also auchhieran. 
Jeder CIA (Complex Interface 
Adapter) ist mit zwei 16-Bit- 
Timern ausgestattet, die sich für 
diese Aufgabe eignen. Timer A 
in CIAl wird bereits für den Sy- 
steminterrupt eingesetzt. Ein Sy- 
steminterrupt findet konstant 60- 
mal pro Sekunde statt und kann 
mit dem Aufrufeines Modulator- 
schritts gekoppelt werden. 


Musik per Interrupt 


Die Aufruffrequenz der 
Sequenzer-Schritte soll dage- 
gen im Bereich von zirka 20-100 
Hz, abhängig vom Tempo des 
Musikstücks, variabel sein. 
(Man erinnere sich: 240 bpm ent- 
sprechen 96 Hz bei einem Zeitra- 
ster von 96 Schritten pro ganzer 
Note.) Das legt den Einsatz eines 
weiteren unabhängigen Timers 
nahe. In Frage kommen dafür: 
Timer Bin CIAl (IRQ) 

Timer A in CIA2 (NM]) 

»;B in CIA2 (NM) 
ıe Auswahl des Timers ist 
willkürlich. Im vorliegenden 
Programm wird Timer Bin CIAl 
eingesetzt. Dadurch bleiben die 
Timer in CIA2noch vollkommen 
frei für Zwecke, die nichts mit 
der Musikprogrammierung zu 
tun haben müssen. Danun Timer 
A und Timer B beide unabhän- 
gig voneinander Interrupts aus- 
lösen können, muß die ange- 
sprungene _|Interrupt-Service- 
routine die Interrupt-Quelle er- 


‚mitteln, also feststellen, weicher 


Timer den Interrupt ausgelöst 
hat und abhängig davon weiter- 
verzweigen. Zu diesem Zweck 
wird im sogenannten Interrupt- 
Control-Register (ICR) $DCOD 
bei einem Timer-A-Interrupt Bit 
O und bei einem Timer-B-Inter- 
rupt Bit 1 gesetzt. 


Programmierung des CIA 

Zur Steuerung von CIA- 
Interrupts dient das schon er- 
wähnte Interrupt-Control-Regi- 
ster (ICR) $DCOD. Dieses Regi- 
ster hat zwei Funktionen, je 
nachdem, ob schreibend oder 
lesend darauf zugegriffen wird. 
Bei Lesezugriff zeigt es an, ob, 
und wenn ja, woher ein Interrupt 
ausgelöst wurde. Zugleich wird 
das Register gelöscht und die 
Interrupt-Anforderung zurück- 
genommen (Die IRQ-Leitung 
geht von low auf high). Die Bits 
0-4 sind dabei verschiedenen In- 
terruptaquellen zugeordnet. Uns 
interessieren hier nur die Bits 0 
und 1, welche zu den Timer- 


Interrupts gehören. Durch einen 
Schreibzugriff wird dagegen 
ein Masken-Register angespro- 
chen. Damit lassen sich die In- 
terruptquellen einzeln freige- 
ben oder sperren. Die Bits 0-4 
kann man einzeln setzen oder zu- 
rücksetzen. Ist im geschriebe- 
nen Byte Bit 7 gesetzt, wird jedes 
mit einer | beschriebene Bit ge- 
setzt, während die anderen Bits 
unverändert bleiben. Ist Bit 7 
rückgesetzt, so wird jedes mit ei- 
ner l beschriebene Bit zurück- 
gesetzt, während die anderen 
Bits wieder unverändert blei- 
ben. Gesetzte Bits ermöglichen 
eine Interrupterzeugung durch 
die jeweilige Quelle. Die Freiga- 
be der Interrupterzeugung 
durch Timer B sieht also so aus: 
LDA #%10000010 
STA $DDOD 

zen: 

Der Timer selbst wird durch 
drei Register gesteuert. 

Das Registerpaar TIMER B 
($DC06/$DC07) liefert bei Lese- 
zugriff den aktuellen 16-Bit- 
Zählerstand. Dieser Wert wird 
kontinuierlich heruntergezählt. 
Bei Erreichen von Null stoppt 
der Timer entweder (One-Shot- 
Mode) oder lädt einen Wert aus 
einem Timer-Latch (Latch = Zwi- 
schenspeicher) nach und zählt 
von neuem herunter (Continous 
Mode ). Bei diesem Timer-Unter- 
lauf wird ein Interrupt erzeugt, 
wenn Bit lim ICR gesetzt ist. Ein 
Schreibzugriff auf TIMERA be- 
ziehtsich dagegen aufdas 16-Bit- 
Latch. Mit dem Latch-Wert kann 
man die Zeit zwischen zweilnter- 
rupts im Bereich von 1 bis 65535 
Mikrosekunden steuern. 

Das Register CRB (Control Re- 
gister B $DCOF) steuert die Be- 
triebsart des Timers (Start/Stop, 
One Shot/Continous, u.a.) 
Durch LDA #%00010001 
STA $DDOE 
wird der Zählerstand mit dem 
Latch-Wert geladen und der Ti- 
mer gestartet. 


Die Interrupt-Service-Routine 

'Sie fragt zunächst ab, ob der 
Interrupt von Timer A (Systemin- 
terrupt, Modulatorschritt) oder 
von Timer B (Sequenzerschritt) 
kommt. Bei einer möglichen 
gleichzeitigen Interruptanforde- 
rung durch beide Timer, wird 
der Timer-B-Interrupt bevorzugt 
behandelt. Das hat folgende 
Gründe: 
— Für ein exaktes Sequen- 
zer-Timing sollten anzuspielen- 
de Noten möglichst wenig verzö- 
gert werden. 
— Die ‚Abarbeitung eines 
Sequenzer-Schritts benötigt viel 
weniger Rechenzeit als ein Mo- 
Aulatorschritt (zeitaufwendige 
Multiplikationen) oder eine 
Systeminterrupt-Behandlung. 
— Die Aufruffrequenz kann bei 
den Sequenzer-Schritten sehr 
hoch sein (96 Hz bei 240 bpm, 
aber auch über 200 Hz sind tech- 
nisch leicht möglich). 


‚IOR Bit 1 set- 
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Da das ICR beim Lesen ge- 
löscht wird, muß sein Inhalt zwi- 
schengespeichert werden, da- 
mit beim Auftreten von zwei In- 
terrupts die Behandlung des 
niedriger priorisierten Timer-A- 
Interrupts nachgeholt werden 
kann. 

Bei Auftreten eines Interrupts 
wird immer das Interrupt-Bit im 
CPU-Statusregister gesetzt, da- 
mit die CPU nicht gleich wieder 
unterbrochen werden kann. Da 
die IRQ-Leitung so lange auf 
Low-Pegel bleibt, bis die CPU 
durch Auslesen des CIA-ICR die 
Interruptanforderung löscht, 
würde sich das System ohne ge- 
setztes Interrupt-Bit durch einen 
Dauerinterrupt aufhängen. Es 
steht dem Programmierer aller- 
dings frei, nach dem Auslesen 
des ICR das Interrupt-Bit durch 
den Befehl CLI (Clear Interrupit- 
Flag) zurückzusetzen, um damit 
das Programm wieder unter- 
brechbar zu machen. Beim vor- 
liegenden Programm bleibt bei 
einem Sequenzer-Schritt das 
Interrupt-Bit gesetzt, während es 
zur Abarbeitung eines Timer-A- 
Interrupts rückgesetzt wird. Da- 
durch kann die CPU auch dann 
durch einen Timer-B-Interrupt 
unterbrochen werden. 

Das Betriebssystem und das 
Programm Modulator machen 


SONG 


beide intensiven Gebrauch von 
der Zero-Page. Die Inhalte der 
Zero-Page-Speicherplätze dür- 
fen von einem interruptgetrie- 
benen Programm nicht verän- 
dert werden. Das Sequen- 
zer-Programm belegt daher nur 
zwei Zero-Page-Speicherplätze 
($FE,$FF). Ihre Inhalte werden 
bei Programmbeginn zwischen- 
gespeichert und bei Programm- 
ende restauriert. 
Die verwendeten Datenstrukturen 

Um ein Musikstück in eine 
computergerechte Form zu brin- 
gen, muß man im wesentlichen 
die Tonhöhe und die Länge der 
einzelnen Noten codieren. Beim 
Einsatz mehrerer, verschieden 
klingender Stimmen, muß man 
außerdem jede Note eindeutig 
einer Stimme zuordnen. Die hier 
verwendete Datenstruktur (Bild 
l) verfolgt mit ihrem etwas kom- 
plizierten Aufbau zwei Ziele: 
— Sparsamer Umgang mit dem 
Speicher 
— Gute Editiermöglichkeiten. 
(Ein Editorprogramm in Basic 
folgt in der nächsten Ausgabe) 
Tracks 

Die Steueranweisungen wer- 
den für die drei Stimmen ge- 
trennt in drei sogenannten 
Tracks (Tonspuren) gespei- 
chert. Ein Track ist eine zusam- 
menhängende Folge von I-Byte- 


SsaER OnLngE: 


Sequenzfolge- 


Zeiger auf 
SONG 


<> 


Kommandos. Das häufigste Kom- 
mando dürfte das Ton-Komman- 
do sein. Die Tonhöhe wird ausei- 
ner Oktav-Nummer und einer 
Tonnummer (siehe Bild 2), diein 
den beiden Nibbles (= Halbby- 
tes) eines Bytes stehen, ermittelt. 
Das Programm benötigt dazu le- 
diglich eine Tabelle der Fre- 
quenzen der höchsten Oktave. 
Die Frequenzen der niedrige- 
ren Oktaven werden durch Tei- 
lung durch Zweierpotenzen er- 
rechnet. Eine Division durch 2 
wird durch einen einfachen 
Rechts-Shift realisiert. Die Dau- 
er des Tones ist nicht Bestandteil 
des Ton-Kommandos. Sie wird 
durch das Zeit-Kommando vor- 
eingestellt. Da häufig mehrere 
Töne mit gleicher Länge aufein- 
anderfolgen, genügt ein einzi- 
ges Zeit-Kommando (ein oder 
zwei Bytes), um die Tonlänge 
(siehe Bild 3) einzustellen. Dabei 
wird zwischen einer GATE-ON- 
und einer GATE-OFF-Phase un- 
terschieden, deren Längen zu- 
sammengenommen die ge- 
wünschte Tonlänge ergeben. 
Beispiel: GATE-ON-Zeit = 5 
GATE-OFF-Zeit = 7 
Gesamtzeit = 12 

Das entspricht einer kurz an- 
geschlagenen Achtelnote (bei 


96 Zeitschritten pro ganzer No- 


te). Die GATE-ON-Zeit ist im Be- 


5 Sequenz | 


Zeiger auf Sequenz | 


Der 
= 
[) 
- 
® 

> 
® 

N 


Für Erweiterungen 


Bild 1. Sequenzer-Datenstruktur 
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l 
2 
3 
4 
5 
6 
7 
8 
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ais=b 
= 
Bild 2. Tonnummer und Note 


reich 1-96, die GATE-OFF-Zeit im 
Bereich 0-30 einstellbar. Der Se- 
quenzer setzt nach Ablauf der 
GATE-ON-Zeit das GATE-Bit der 
entsprechenden Stimme im SID 
zurück und wartet dann die 
GATE-OFF-Zeit ab. Ist diese 0, so 
wird natürlich sofort der nächste 
Ton gespielt. Man kann aber 
auch explizit Pausen program- 
mieren (Code $EF). Ihre Länge 
ist die Summe aus GATE-ON- 
und GATE-OFF-Zeit. 

Der Code $00 ist zur Kenn- 
zeichnung für das Track-Ende 
vorgesehen. Die Codes $F8 bis 
$FF sind für Sonderfunktionen 
reserviert, die für eine spätere 
Erweiterung des Sequenzers 
gedacht sind. AÄngesprungen 
werden sie über eine Tabelle 
von Vektoren, die im Moment 


Zeiger auf TRACK | 
TRACK2 
TRACK 3 
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nurin den Programmteil zur Aus- 
führung des nächsten Komman- 
dos führen, also nichts bewir- 
ken. Sinnvolle Sonderfunktionen 
sind: 
— Änderung von Soundparame- 
tern 
— Wahl eines ganzen Parame- 
tersatzes (Soundwechsel) im Zu- 
sammenhang mit dem Pro- 
gramm Modulator 
— Tempowechsel 

Diese Sonderfunktionen wer- 
den den Sequenzer ın der näch- 
sten Folge ergänzen. 


Sequenzen 


.  Fürjede der dreiStimmen gibt 
es eine Folge von Kommandos, 
einen Track. Die drei Tracks 
werden zu einer Sequenz zusam- 
mengefaßt. Eine Sequenz ist 
hier ein zusammenhängender 
Abschnitt eines Musikstücks, 
der einen einzigen Ton, einen 
Takt oder auch das ganze Stück 
umfassen kann. Den drei Tracks 
gehen drei Zeiger auf die 
Track-Startadressen voran. Ob- 
wohl es sich aus Gründen der 
Übersichtlichkeit empfiehlt, die 
Sequenzen wie in Bild 1 zusam- 
menhängend in der Folge 
Zeiger-Track 1, Track 2, Track 3 
zu speichern, besteht dazu kein 
Zwang. Es müssen lediglich die 
drei Track-Zeiger einer Se- 


quenz und die Tracks in sich zu- 
sammenhängen. 








Kommando 


%0000 0000 
A0ttt tttt 


Track-Ende 
Zeitvorgabe 


%lmmm nnnn nächster Ton 


%1110 1111 
%llll Ef 


Pause 


Kommandoformate innerhalb der Tracks 


Interpretation 


Sonderfunktion f = 0... 7 Funktionsnummer 


Bild 3. Tonlängen bei 
96 Schritten pro Ganzton 


Sequenzfolge-Liste 

Um eine Sequenz zu wieder- 
holen, muß man sie nicht zwei- 
mal programmieren, sondern 
kann sie wie ein Uhnterpro- 
gramm mehrmals aufrufen. Die 
Sequenzfolge-Liste enthält dazu 
die Startadressen der Sequen- 
zen In der Reihenfolge, in der 
diese gespielt werden sollen. 
Dabei können die gleichen 
Adressen natürlich mehrfach 
auftreten. Unter der Startadres- 
se einer Sequenz wird hier die 
Adresse des Zeigers auf Track | 
verstanden. Die Sequenzfolge- 
Liste enthält für jedes segu 
außer dem Zeiger noch ein drit- 
tes Byte, das für spätere Erweite- 
rungen vorgesehen ist. Drei Nul- 
len schließen die Liste ab. 


Flexibilität durch 
Steuerflags und 
Vektoren 


Im Normalfall wird man die 
drei Tracks einer Sequenz 
gleich lang programmieren. 
Macht man dagegen die Tracks 
unterschiedlich lang, so wieder- 
holt das Programm die kürzeren 
Tracks so lange, bis der längste 
Track zu Ende gespielt ist. Erst 
dann geht das Programm zur 
nächsten Sequenz über. Dieses 
Verhalten kann bei manchen 


. Musikstücken nützlich sein. Das 








t= 1..96 GATE-ON-Zeit:=t-m 
t = 97...127 GATE-OFF- 
Zeit:=t-97 

m = 0..6 Oktave 

n= 0..ll Tonnummer 

n = 12...15 Pause 
(Standardcode $EF) 











Tabelle 2. So programmiert man einen »Track«. 


128 ZXap 


MSE-Listing 2 enthält einen 
Musik-Datensatz, beideminder 
zweiten Sequenz der dritte 
Track aus nur vier Tönen be- 
steht, die fortlaufend wiederholt 
werden. 

Normalerweise hält der Se- 
duenzer an, wenn alle Sequen- 
zen gemäß Sequenzfolge-Liste 
durchgespielt sind. Nach dem 
Anhalten wird auch der Inter- 
ruptvektor auf seinen ursprüng- 
lichen Wert zurückgestellt. Eine 
l im Flag REPMODUS bewirkt, 
daß das ganze Stück endlos wie- 
derholt wird. 

Eine 1 im Flag SEQMODUS 
bewirkt, daß die aktuelle Se- 
quenz endlos wiederholt wird. 
Auch hier ist der längste Track 
der Sequenz maßgeblich. 

Eine l im Flag LEGATO be- 
wirkt, daß die GATE-Bits in den 
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Ton-an-Befehl ermittelt wurde. 
Im vorliegenden Programm 
wird der Frequenzwert direkt ın 
denSID geschrieben. Bei einem 
Einsatz zusammen mit dem Mo- 
Aulator muß die Frequenz dage- 
gen in ein Modulator-Register 
geschrieben werden. 
EXTRAVEKTOR 

Über diesen Vektor kann man 
weitere Aktionen an einen 
Sequenzer-Schritt anhängen. 
Denkbar wäre zum Beispiel die 
Anzeige der gespielten Noten 
auf dem Bildschirm in Realtime. 
IROAVEKTOR 

Führt zum Systeminterrupt 
$EA31. Dieser Vektor muß beim 
Einsatz mit dem Modulator auf 
die Startadresse des Modulator- 
schrittes zeigen. 

Das vorliegende Sequenzer- 
programm (Listing 1) belegt den 


Routinen, Variablen, Vektoren 


$C480 JMP TEST 


Teststart, Zeiger initialisieren, die 


wichtigsten SID-Parameter setzen, 
Sequenzer starten. 


$C49E SIDCR (3 Byte) 


$C4A8 


LEGATO (I Byte) 


$C4A9 SEQMODUS 
(1 Byte) 

$C4AA REPMODUS 
(1 Byte) 


$C4C3 FUNCTION (8*2 
zes: Byte) 

$C4D3 TONVEKTOR 
(2 Byte) 
EXTRAVEKTOR 
(2 Byte) 
IRQAVEKTOR 
(2 Byte) 

START 


$C4D5 
$C4D7 


$C4D9 


SID-Control-Register-Bytes mit zu- 
rückgesetztem GATE-Bit 
Flag 0 = normaler Betrieb 


l = kein GATE-OFF 


FlagO0 = ganzes Stück spielen 


l = Sequenz wiederholen 


Flag 0 = Stück einmal spielen 


l = Stück immer wieder 
spielen 


Vektoren für Sonderfunktionen 


Vektor zur Weiterverarbeitung der 
Frequenz bei Ton an 

Vektor für Zusatzaktion bei jedem 
Sequenzer-Schritt 

Vektor für Timer-A-Interrupt 


Sequenzer starten (Es werden kei- 


ne Zeiger initialisiert) 


$C51E 
$C67D 


IROSERVICE 
NEXTAKT 


Anlaufpunkt für alle IRQ-Interrupts 
Dorthin sollten alle Sonderfunktio- 


nen zurückspringen 


$C7l6 STOP 


Sequenzer unterbrechen/aus- 


schalten. Er kann mit START jeder- 
zeit wieder gestartet werden. 


$C739 TEST 


siehe $C480 





Tabelle 1. Die wichtigsten Routinen, Varianten und Vektoren des 


Sequenzers. 


SID-Steuerregister nicht zurück- 
gesetzt werden. Dadurch klin- 
gen die Töne gebunden. Dazu 
muß allerdings ein Sustain- 
Pegel ungleich Null eingestellt 
sein, sonst ist überhaupt nichts 
hörbar. 

Anallen wichtigen Stellen des 
Sequenzerss wird der Pro- 
grammfluß über Vektoren wei- 
tergeleitet. Damit soll die Mög- 
lichkeit, das Programm nach- 
träglich. leicht zu erweitern, of- 
fengehalten werden. Die Vekto- 
ren für die acht Sonderfunktio- 
nen wurden schon erwähnt. Au- 
ßer diesen acht gibtesnoch drei 
weitere Vektoren: 
TONVEKTOR 

Er führt das Programm weiter, 
nachdem die Frequenz für einen 


Speicherbereich $C480-$C778. 
$C480 = 50304 ist gleichzeitig 
auch die Startadresse (SYS 
50304). Tabelle 1 faßt die wich- 
tigsten Routinen, Variablen und 
Vektoren des Sequenzer-Pro- 
gramms zusammen. 

Das Programmieren von Mu- 
sikstücken mit Hilfe der Tabelle 
2 ist noch etwas mühsam. Ein 
Editor in der nächsten Ausgabe 
wird diese Arbeit erleichtern. 
Mit dem Datensatz aus Listing 2 
(»Kobold« aus den »Lyrischen 
Stücken« von Edvard Grieg) 
kann man den Sequenzer testen. 

Die Verschmelzung des Se- 
quenzers und des Modulators zu 
einer funktionellen Einheit wird 
in der nächsten Folge behan- 
delt. (Thomas Krätzig/tr) 
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programm : musik 

cBBR : 15 c8 BR 31 c8 BR 
c8Uu8 : BB a4 cB BD aA ch 
cB1@ : c8 BB 28 98 BB 1b 
c8i8 =: cB 27 cB 42 41 ef 
c8B2B : BA 4U Zi ef 48 ef 
c828 : Ad 935 9a 93 Ba 93 
c8B3B : BA 37 cB 549 cB 9d 
c8358 : 61 ef Bc ba ?24 ef 
cB48 : 24 ef Bc dd ba bb 
c848 : b9 b5 b5 bP 18 61 
c858 : ef Gc c3 24 ef Gc 
c858 : ef Bc dd cS3 bb bb 
c858ß : ba ba c?2 18 #1 c2 
c858 : BB Bc di b3 b5 bh 


c4B0 c777 


c888 c9758 cB7B : b5 b&A b5 

c878 ı 63.04 69 
cB B2 c888 : b5 38 ef 
e9 fi c888 : b8 ba bb 
21 37 c89B : bB bB bb 
ef 49 c89789 : 41 ba 38 
Br u cBaß : 3 Ya 93 
93 4f c838 : de c& 18 
18 f8 cBbB : cB c8 ch 
ba 53 cBb8 : Bc 41 ch 
ba be c8cBß : 18 ca Gc 
48 84 cöc8 : sk 
24 71 cBdßB : bb ci 1B 
c2 4 cBd8 : bB b& bB 
ef fB cBeß : ef 48 79 
b3 8c c8deB : BO ef cB 


b3 b5 4d bös b3 2 #d 
b@& bB b5 18 61 e& 
®c bB ba bb ba 98 
ba bEBE ba &4d bb 72 
ba b5 b5S ba 18 #8 
ef BO Gc Ad Ba 8c 
BB aa c8 b8 cB ch 
41 ef 72 dl di ..d2 
c& ci &1 ci 38 95 
c8 ca c8 c& c8 df 

1 23. C8 2, 1. 7& 
au cı e7 
c3 Bc b6& bS ba 59 
i8 ba BR iB d1 eb 
b& bi ab di a6 74 
88 c9: 2c c9 18 48 
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Listing 1. Der Sequenzer. Bitte mit 


dem MSE eingeben. 
c8fB : di ef AB ef 
c8f8 : 67 9a a5 aa 
CU =: ca 18 81 ca 
c?7B8 : Bc di a5 a 
c91B : ab a5 as ef 
c918 : a3 al aß ef 
c92B : al 9b Sc ef 
c928 : ef ef ef BD 
c93B : 98 98 95 ef 
c938 : 95 95 91 ef 
c94B : &U ef UBc 93 
c948 : 48 Ba 18 aa 


ef 
b5 
ef 
ab 
as 
ef 
95 
di 
35 
gi 
8b 
ef 


ef 
ba 
ef 
as 
ai 
Bc 
18 
35 
95 
9B 
Sc 


ef 





Q& 
ba 
22 
ef 
ef 
as 
b5 
9 
ef 
ef 
ef 
88 


Listing 2. Ein Musik-Demo. Bitte mit 
dem MSE eingeben. 





C 64 extern — Der Weg nadı draußen 


(Teil 3) 








Nachdem wir in der letzten Folge die 
Programmierung der Control-Ports 
abgeschlossen haben, wenden wir uns 
heute einer der vielseitigsten Schnitt- 
stellen des C 64/VC 20 zu — dem 


User-Port. 


er User-Port führte neben 

dem Expansion-Port lange 
ZeiteinSchattendasein, dennan 
inm können keine Programm- 
Module verwendet werden. 
Mittlerweile hat der User-Port 
aber weit aufgeholt. Er wird für 
Steuerzwecke, zum Anschluß ei- 
nes Druckers, für die RS232 und 
auch zum Programmieren von 
EPROMs mit einem Zusatzgerät 
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verwendet. Sehen wir uns diese 
interessante Schnittstelle etwas 
genauer an. Die ÄAnschlußbele- 
gung der User-Ports von C 64 
und VC 20 zeigen die Bilder | 
und 2. Beachten Sie bitte, daß 
die Anschlüsse an der Ober- 
und Unterseite des User-Ports 
verschiedene Funktionen ha- 
ben. Klemmen Sie deshalb dort 
niemals eine Krokodilklemme 


A; B; © 8 


E 


PIN | BELEGUNG 


GND 


RESET 
ı CNTI 
'SP1 
ı CNT2 

sp 2 
| PC2 


3 | |o0 rı In Ion > | Io I 


11 


l2 | GND 


F 


+5V, max. 100 mA 


H 


J 


PIN | BELEGUNG 


A 
B 


M 
N 


9 


KR. I 


| GND 
FLAG 
 PBO 
PBl 
PB2 
PB3 
PB4 
PB5 


SER. ATN IN K |PB6 
9V AC, max. 00 mA | L |PB7 


9V AC, max. 100mA 


PA2 
GND 


10 


2 


11 


M 





12 


N 


Bild 1. Anschlußbelegung des C 64 User-Ports. (Bei Aufsicht auf 
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die Computerrückseite) 
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oder vergleichbares an! Ich 
möchte Ihnen nun zuerst zeigen, 
wie der 8-Bit-Parallelport am 
User-Port programmiert wird. 
Dieser Port bietet sehr vielseiti- 
ge Anwendungsmöglichkeiten, 
obwohl er einfach zu program- 
mieren Ist. Angesprochen wird 
er über die acht Leitungen PBO 
bis PB7 (Pin C bisL). 

Uber den Parallelport kann 
man Daten einlesen und Daten 
ausgeben. Das Praktische an 


dieser Tatsache ist, daß man die 


Richtung der Daten für jede der 
acht Leitungen einzeln bestim- 


‘ menkann. Warum es aber gera- 


de acht Leitungen gibt, hateinen 
einfachen Grund: Zur Steuerung 
des Ports gibt es im Computer 
zwei verschiedene Speicher- 
stellen. Jeder Leitung am Port ist 
in jeder dieser Speicherstellen 


genaueinBitzugeordnet. Daher | 


also acht Leitungen, gleich acht 
Bit, gleich ein Byte. 

Welche Bedeutungen haben 
nun diese beiden Speicherzel- 
len? Die erste nennt sich »DDR«. 
Das heißt »Data Direction Regi- 
ster« (Datenrichtungsregister). 
Hier wird, wie der Name schon 
sagt, die Datenrichtung festge- 
legt. Aber wie? Dem Bit X im 
DDR ist die Datenleitung PBX zu- 
geordnet. Ist zum Beispiel Bit2in 
diesem Register auf |, dann ist 
die Leitung PB2 als Ausgang de- 
klariert. Eine 0 macht die ent- 
sprechende Leitung zum Ein- 
gang. So einfach ist das! 

Die zweite bereits genannte 
Speicherstelle enthält die ei- 
gentlichen Daten. Man bezeich- 
net sie als Portregister. 

Nehmen wir einmal an, wir 
hätten in das Datenrichtungsre- 
gister die Zahl 255 eingeschrie- 
ben, also alle Leitungen als Aus- 
gänge programmiert. Eine 255 
im Portregister legt dann Hicgh- 
Pegel auf alle acht Datenleitun- 
gen. Eine 0 im Portregister be- 
wirkt GND aufallen Datenleitun- 
gen: Man kann also wie im Da- 


tenrichtungsregister bitweise . 
den Spannungszustand am Aus- 
gang bestimmen (l=hich, 


0O=low). Hierbei ist Bit 0 wieder 
PBO zugeordnet. Die Span- 
nungspegel, die wir am Port er- 
halten, können wir dann »extern« 
verarbeiten, doch davon später. 

Im zweiten Beispiel benutzen 
wir den Parallelport als Ein- 
gang. Nehmen wir an, wir hätten 
in das Datenrichtungsregister 
eine 0 eingeschoben, also alle 


DATEN- 
RICHTUNGS- 
REGISTER 





1 
2; max. 100 mA 
RESET 


OY 1 
OY2 


2 
3 
4 
Re) 
6 
7 
8 
9 


ı SERIAL ATN IN 


| | 
DD I |O 


GND 


0 ernste 


LICHT PEN BE 
CASSETTE SWITCH 


ı 9V AC, max. 100 mA 


9V AC, max. 100 mA BTe CB2 
FEREEEREER 


PIN Beige PIN | BELEGUNG 


A |GND 
B CBl 
C PBO 
PBl 
PB2 
PB3 
| PB4 

PB5 
5 PB6 

PB7 


N | GND 





Bild 2. Anschlußbelegung des VC 20 User-Ports. (Bei Aufsicht auf 


die Computerrückseite) 


Datenleitungen als Eingänge 
definiert. Jetzt müssen wir »ex- 
terne« Daten an den Port anle- 
gen. Das geschieht durch Ver- 
binden der Datenleitungen ent- 
weder mit +5 V oder GND der 

Computerversorgungsspan- 
nung. Dabei entspricht einer »0« 
GND und eine »l« +5V. Eine »l« 
entstehtauch, wenn eine Leitung 
nichtangeschlossen, @86'We 
mit +5 V noch mit GND verbun- 
den wird. Das spart oft viel 
Schaltungsaufwand. Die an den 
Port angelegte Bitkombination 
kann jederzeit durch Abfragen 
des Portregisters ausgelesen 
werden. Der neue Zustand der 
Datenleitungen wird, wenn sıch 
etwas geändert hat, jeweils so- 
fort und automatisch in das Port- 
register übernommen. 

Die beiden Funktionen Ein- 
gänge/Ausgänge dürfen, wie 
schon gesagt, beliebig gemischt 
werden. So ist beispielsweise 
möglich, die Leitungen 2,5und 7 
als Ausgänge undalle restlichen 
Leitungen als Eingänge zu defi- 
nieren. Dazu müßte man im Da- 
tenrichtungsregister die. Zahl 
164 ablegen (164=Bits 2,5 und 7 
gesetzt). Die Information über 
die Spannungszustände an den 
Ausgängen müßte in die Bits 2, 5 
und 7 des Portregisters gePO- 
KEtund.die Information über die 
Eingänge aus den Bits 0, 1, 3, 4 


PORTREGISTER 


Tabelle 1. Zusammenstellung der User-Port-Register 
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und 6 des Portregisters ausgele- 
sen werden. 

Nach soviel grauer Theorie 
wollen wir endlich wieder etwas 
programmieren. Bevor es los- 
geht, müssen Sie noch wissen, 
wie dıe Adressen der eben be- 
sprochenen Speicherstellen lau- 
ten. Sie sind in Tabelle 1 aufgeli- 
stet. Jetzt haben wir alles nötige 

URBE@=: 19, um voll in eine sinnvol- 
le Anwendung des Computers 
einzusteigen: Programmieren 
wir eine Alarmanlage! 


Alarmanlage per 
User-Port 


Tippen Sie Listing 1 ab und 
starten Sie das Programm mit 
RUN. Auf dem Bildschirm er- 
scheint der Kontaktplan des Pa- 
rallelports. Hoffentlich haben 
Sie beim Einkauf für die letzte 
Folge an den Stecker für den 
User-Port gedacht, den brau- 
chen wir nämlich jetzt. 

Bringen Sie an einem der vier 
Eckkontakte (=GND, siehe Bild 
l) des User-Port-Steckers einen 
Draht an, und stecken Sie den 
Stecker in den User-Port. Zum 
Anbringen des Drahtes ist Löten 
wohl das Beste. Keinesfalls dür- 
fen Sie einen anderen Anschluß 
versehentlich berühren, bezie- 


DATEN- 
RICHTUNGS- 


hungsweise mit GND in Verbin- 
dung bringen. 

Nehmen Sie sich nun das an- 
dere Ende des Drahtes zur 
Hand, und berühren Sıe damit 
eine der Datenleitungen PBl bis 
PB7. Bitte nicht die Datenleitung 
PB0O, da diese vom Programm als 
Ausgang (Alarmanzeiger) be- 
nutzt wird (was wir mit diesem 
machen können, sehen wir ın 
der nächsten Folge). Welche 
Pins die richtigen sind, können 
Sie Bild 1 und 2 entnehmen. 

Beim Berühren erklingt ein 
Alarmton, der Bildschirmrah- 
men ändert die Farbe, und der 
Alarmanzeiger (PB0) geht auf: 
high (+5 V). Zusätzlich wırd auf 
dem Bildschirm angezeigt, wel- 
che Kontakte den Alarm ausge- 
löst haben. Wenn Sıe keine der 
Datenleitung mehr mit dem 
Draht berühren, die Eingänge 
also alle High-Signal erhalten, 
werden alle Alarmsignale sofort 
gelöscht. 

Werfen wir einen Blick auf das 
Listing. Nach der Initialisierung 
der Variablen, der Portregister, 
des SID-Chips und des Bild- 
schirms wird in Zeile 390 das 
Portregister (Variable R) so lan- 
ge ausgelesen, bis ein anderer 
Wert als 254 auftaucht. Warum 
254? 254 ist die Summe der Wer- 
tigkeiten der Bits 1 bis 7, also al- 
ler Bits des Portregisters ohne 
den Älarmanzeiger. Das ist der 


Ruhezustand der Alarmanzeige; 


alle Kontakte sind geöffnet 
(=High-Pege!). 

Wird ein Alarm ausgelöst, 
dann werden ab Zeile 430 sämtli- 
che Alarmanzeiger eingeschal- 
tet. Ab Zeile 470 wird ein neuer 
Kontaktplan ausgegeben. Dabeı 
wird jeder Kontakt auf Alarm 
überprüft und das Ergebnis an- 
gezeigt. 

Anschließend wartet der 
Computer auf das Alarmende. 
Wenn noch Alarm besteht, wird 


wieder ein neuer Kontaktplan 


ausgegeben, weil sich am Kon- 
taktzustand etwas geändert ha- 
ben kann. Andermfalls werden 
die Alarmanzeiger ausgeschal- 
tet und es wird zur Bildschirm- 
initialisierung zurückgesprun- 
gen. 

Wer sich das Programm ge- 
nau ansieht, wird schnell fest- 
stellen, daßesso, wie eshier ab- 
gedruckt ist, zum realen Einsatz 
als Alarmanlage weniger geeig- 
net ist. Dazu hates verschiedene 
Schwächen. Zum einen wird 


PORTREGISTER 


REGISTER 


C 64, PORT I 
C 64, PORT 2 


37139./ 37154 





37137 / 37152 


Tabelle 2. Zusammenstellung der Control-Port-Register 
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56323 
56323 | 


GISTER 


56321 
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Tabelle 3. Daten zur Abfrage der Paddle-Knöpfe beim Port 1 


des C 64 


nicht mit Sicherheit jeder Alarm 
erkannt: Wenn der ÄAlarmimpuls 
sehr kurz ist, kann es passieren, 
daß der C 64 gerade etwas an- 
deres tut, als das .Portregister 
auszulesen, zum Beispiel den 
Rücksprung nach 390 ausführen. 
Außerdem ist der eigentlich 
alarmauslösende Zustand am 
Portregister nicht der, der aus- 
gewertet wird, weil der auszu- 
wertende Zustand erst nach 
dem Alarmauslösen in Zeile 420 
ermittelt wird. In der Zwischen- 
zeitkannsichschon etwas verän- 
dert haben. Das genannte trifft 
aber nur auf sehr kurze Impulse 
zu. 

Zum anderen ist die Auswer- 
tung des Alarmes viel zu einfach 
gehalten, eben nur als Beispiel. 
Wenn hier ein Alarm von einer 
Sekunde auftritt, wird auch nur 
eine Sekunde lang Alarm gege- 
ben, was natürlich viel zu wenig 


Codeschloß 


Kommen wir zu einem weite- 
ren Programmbeispiel, dem Co- 
deschloß in Listing 2. Wir haben 
es wieder mit Raumsicherung zu 
tun. Wieder wird die Datenlei- 
tung PBO als Ausgang und die 
restlichen Datenleitungen als 
Eingänge benutzt. 

Was leistet das Programm? Sie 
müssen durch Verbinden der 
Datenleitungen PB2 bis PB7 ei- 
nen sechsstelligen Code einge- 
ben. Wenn Sie keinen Fehler ge- 
macht haben, wird die Datenlei- 
tung PBO auf high gelegt, also 
beispielsweise eine Tür geöff- 
net oder eine geheime Anlage 
eingeschaltet. Wie Sie solche 
Dinge ansteuern können, erfah- 
ren Sie im nächsten Teil dieses 
Kurses. Über die Leitung PBl 
wird das Codeschloß zurückge- 
setzt (sowohl nach dem Auslösen 
des Schlosses als auch nach ei- 
ner Fehlereingabe). Jede Berüh- 
rung an den Eingängen wird 
durch einen Signalton auittiert. 

In den Zeilen 250/260 werden 
zwei Variablen deklariert, de- 
ren Bedeutung ich kurz erläu- 
tern möchte. CL enthält die Län- 
ge des einzugebenden Codes, 
C1$ den Code selbst. Den Inhalt 
dieser beiden Variablen können 
Sie nach Belieben verändern. 
Der von mir gewählte Code ist 
bewußt sehr primitiv. 

In C2$ wird der Code aufge- 
baut, den Sie durch Berühren 
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des C 64 
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Tabelle 5. Daten zur Abfrage der Paddle-Knöpfe beim VC 20 


der »externen« Kontakte einge- 
ben. Der große Vorteil hierbei 
ist, daß die Eingabeeinheit für 
den Code an einer anderen Stel- 
le (zum Beispiel im Nebenraum) 
als der Computer sein kann. 
Man wird also von der Compu- 
tertastatur unabhängig. Mit ei- 
nem langen Code wird ein 
Knacken theoretisch unmöglich. 
Da sich das Programm durch 
REM-Anweisungen selbst doku- 
mentiert, bleibt nur noch zu sa- 


gen, daß es der Einfachheitaem 


ber bei jedem »RESET« an Kon- 
takt PBl einfach neu mit RUN ge- 
startet wird. 

Auch beidiesem Programm ist 
nur eine Minimallösung angege- 
ben. Man kann es um viele Raffi- 
nessen erweitern, so daß zum 
Beispiel ein Einbruchsversuch 
alssolcher gedeutet wırd und so 
weiter. 

Nachdem wir nun wissen was 
sich am User-Port abspielt, wol- 
len wir noch einmal einen Schritt 
zurückgehen. Im ersten Teil die- 
ses Kurses sind ein paar Fragen 
offen geblieben, die ich jetzt be- 
antworten möchte. 

Da war alserstes die Sache mit 
der Umschaltung des Compu- 
ters auf Joystickeingabe. Viel- 
leicht haben Sie schon eine Ähn- 
lichkeit zwischen Joystick- und 

Parallelport-Programmierung 
entdeckt. Bei beiden mußte et- 
was umgeschaltet werden. Dann 


gab es zwei mögliche Zustände: 


0 oder 1! Die Umschaltung des 
Computers auf Joystickeingabe 
ist nichts anderes als die Pro- 
grammierung des zugehörigen 
Datenrichtungsregisters. Bitte 
erinnern Sie sich: Wir haben bei 
der Umschaltung die zugehöri- 
gen Bits gelöscht, also die Da- 
tenleitungen der Control-Ports 
zu Eingängen gemacht. Wer 
darüber nachdenkt, wird 
schnell zu der Frage kommen, 
was denn passiert, wenn wir in 
die DDRs einfach Einsen hinein- 
schreiben. Die Antwort ist tri- 


vial: Die Joystickleitungen wer- 
den zu Ausgängen! Doch darum 
wollen wir unserst im dritten Teil 
dieses Kurses kümmern. Die Zu- 
sammenstellung aller Adressen, 
die hierfür interessant sind, zeigt 
Tabelle 2. 

Als nächstes interessiert Sie 
wahrscheinlich, warum eigent- 
lich Paddles, Joystick, Lichtgrif- 
fel und Tastatur einander behin- 
dern. Daskommt daher, daß alle 
diese Eingabeeinheiten diesel- 
ben Datemieitungen benutzen. 
Aus diesem Grund sind auch die 
Umschaltungen notwendig. 

Warum aber benutzt die Tasta- 
tur Leitungen am Control-Port? 
Eine Computertastatur ist durch 
eine Matrix aus Zeilen und Spal- 
ten mit dem Computer verbun- 
den. An jedem Kreuzungspunkt 
sitzt eine Taste, die, wenn sie ge- 
drückt wird, die beiden Leitun- 
gen des Kreuzungspunktes mit- 
einander verbindet. Die Routine 
des Betriebssystems, welche 
die Tastatur abfragt, legt nun an 
eine Zeile ein Signal an und 
überprüft, in welcher Spalte die- 
ses Signal auftritt. Daraus läßt 
sich ableiten, welche Taste ge- 
drückt ist. Wird kein Signal ent- 
deckt, so istin dieser Zeile keine 
Taste gedrückt, und das Signal 
wird an die nächste Zeile ange- 
legt. Aus diesem Verfahren er- 
klärt sich, warum einige Tasten 
Priorität gegenüber anderen ha- 
ben. Das können Sie feststellen, 
indem Sie mehrmals zwei Tasten 


‚gleichzeitig drücken. Es wird 


immer dieselbe Taste vom Com- 
puter registriert werden. 

Diese Zeilen- und Spaltenma- 
trix llegt auf denselben Leitun- 
gen wie der Joystick, weil auch 
hier »externe« Signale gegeben 
und Informationen gelesen wer- 
den müssen, wozu unser Com- 
puter eben nur eine bestimmte 
Anzahl von Bausteinen hat. Des- 
halb funktioniert die Tastatur 
nach dem POKEn in die Control- 
Port-DDRs meist nicht mehr, weil 


sie nicht mehr ordnungsgemäß 
decodiert wird. Die Werte, diein 
bestimmte Speicherzellen im- 
mer wieder hineingeschrieben 
werden (siehe Folge 1) stammen 
auch aus der Tastaturdecodie- 
rungs-Routine. 

Die Störung der Tastatur 
kommt nun daher, daß es dem 
Computer völlig gleichgültig ist, 
ob Sie den Joystickhebel bewe- 
gen oder auf die Tasten häm- 
mern. Er prüft artig seine Spal- 
ten nach und kümmert sich nicht 
darum, woher die festgestellte 
Verbindung denn nun kam. Die 
Störung durch den Lichtgriffel 
hat dieselbe Ursache. 

Jetzt müssen wir nur noch ei- 
nen Rückstand aus der letzten 
Folge aufklären. Dabei handelt 
es sich um die Feuerknöpfe der 
Paddles. Ich kann Ihnen erst 
jetzt zeigen wie sie abgefragt 
werden, weil wir auch hier die 
Kenntnisse über die Program- 
mierung des Parallelports benö- 
tigen. Es funktioniert nämlich 
schon wieder genauso: Man set- 
ze im zugehörigen DDR die ent- 
sprechenden Bits auf Null (Lei- 
tung auf Eingang schalten) und 
frage dann die entsprechenden 
Bits im zugehörigen Portregister 
ab. Natürlich zeigt auch hier wie- 
der eine Null im Portregister an, 
daß der Feuerknopf am Paddle 
gedrückt wurde. In Tabelle 3 
sınd die nötigen Informationen 
für Port 1 des C 64, in Tabelle 4 
die für den Port 2 und in Tabelle 
5 die für den VC 20 zusammen- 
gefaßt. Dabei sind die Paddles 
gemäß der Position ihres Verbin- 
dungskabels am Control-Port 
mit links und rechts bezeichnet. 
Das rechte Padadle ist also an 
POTX, das linke an POTY ange- 
schlossen. Da die Feuerknöpfe 
der Paddles dieselben Leitun- 
gen wie der Joystick benutzen, 
gilt hier ebenfalls das oben Be- 
schriebene über die gleichzeiti- 
ge Benutzung von Paddles und 
Tastatur. 

Damit wollen wir es für heute 
bewenden lassen. Das nächste- 
mal sehen wir dann, wie ver- 
sprochen, wo sich den Control- 
Ports Signale entnehmen lassen. 
Außerdem wollen wir uns mit 
Anschlußmöglichkeiten Ver- 
schiedener Adapter an den 
User-Port beschäftigen und un- 
ter anderem einen 220 Volt- 
Adapter für unseren Computer 
bauen! 

(Tobias Nicol/aw) 
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EHER EEE 


ALARMANLAGE 


BY TOBIAS NICOL 
NEUWIESENSTRASSE 28 


&BRBB FRANKFURT 71 


I JE SE /ZE ZuE Zur Zur Zr Zee Zu 
BE Ze SE ZE 22 Ze Ze Ze Ze > 


FERFRRKFREKRKFRRAHRHERKHHNNNK HN 


FERRRRR 
36377 3 


INITIALISIERUNG ###x#%*# 
FOKE 56579,1 : POKE R,®@ 


*#%*%%*%* SID-CHIF EINSTELLEN ###%#* 
34296 : SI = 54272 


FOKE SI+ 7,287 : FOKE SI+ 8,7228 


FOEKE 5I+13,248 


FOKE SI+11,17 

REM **%*%*%* BILDSCHIRM AUFBAUEN #*%*%*%* 
FRINT "<CLR,„2DOWN „SRIGHT FALARMANLAGE" 
PRINT 3DOWN}" 
FOR A=17T07 
PRINT"KONTAKT"A": 
NEXT A 


REM ##*##%%#*%%# ALARM? KERHHHERRRr 
IF {{FEEK{R))AND 254) = 254 THEN 398 


REM #xxx#3#%#0%%# ALARM! 
IR = FEEK (R) 

POKE 53288,2 

POKE R „ PEEE CR) GORı1 
PIRE T,1S 


D. K. {DOWN}" 


KARHRRHKFRTRH 


#*##*%* KONTAKTPLAN AUSGEBEN ##%% 


<238> 
<159> 
<233> 
<226> 
<189> 
<199> 
<209 > 
1723 
<229> 
<a12> 
«2497 
<092> 
<196> 
<2@1> 
<219> 
<226> 
<076> 
<202> 
<131> 
<BaB2> 
<@22> 
<083> 
<119> 
<aB05> 
<123> 
<029> 
<126> 
<Q92> 
<253> 
<B89> 
<122> 
<B43> 
<DuR> 
<230> 
<Q69 > 
<249 > 
<182> 
<023> 


490 
490 
08 
318 
328 
352 
340 
Joa 
Jod 
5780 
5388 
370 
[el al] 
618 
628 
630 
640 
658 
668 
678 
680 
678 
728 
zı@8 
728 
738 
748 
758 
760 
770 
788 
7970 
828 
81 


REM KRHHHHHERHHRENKERHNKERERRHEH HR 


REM 

REM GEBEN SIE EIN : 

REM 

REM 248 R=371356: FOKE37138,1:POKER,®@ 
REM 278 T=36878 : 
REM 432 FOKE 36879,26 
REM 618 FOKE 36879,27 


C 64/VC 20 


PRINT " {HOME „6DOWN}" 

FOR A = 1 T0 7 

IF (IR AND (Z1A)) = B THEN 538 
PRINT "{1Z2RIGHT}O. K. {SFACE ,DOWN}" 
GOTO 548 

PRINT "{12RIGHTFALARM! {DOWN }" <143> 
NEXT A <252> 
- <xB18> 
REM #****#* IMMER NOCH ALARM? ####%%* 108: 
IR = FPEEK CR) 2123 
IF ( IR AND 254 ) <> 254 THEN 478 <171> 
: <B58> 
<B&43> 
<Q17> 
<2355> 
<Q66> 
<188> 
<1&68> 
<112> 
<138> 
<148> 
<158> 
<D74> 
<B27> 
<894 > 
<028> 
<@78> 
<@48> 
<451> 
«078; 
<B7&6> 
<a&68> 
<@72> 
<178> 


<BBB> 
<xa17> 
B85> 
<B9B> 
<xQ35> 


REM ** ALARMANZEIGER AUSSCHALTEN ##* 
FOKE 53289,254 

FRKE R „ FEEK ( R ) AND 254 

FDEE T,8 


Er KHH#88%## RUECEKSPRUNG #888 8#%% 
GOTO 312 


REM RUHR EHER 
REM *##%# AENDERUNGEN FUER VC-28 #%## 


REM 


REM LOESCHEN SIE : ZEILEN 278-298. 


POKE34875 ‚20@ 


Listing 1. Die User-Port-Alarmanlage. Beachten Sie bitte die 
Eingabehinweise auf Seite 54. 





180 REM KH HEHHERREHHHH HH HH RER <2358> 78 C2$ = C2# + RIGHT$ ( STR$ (X) „ 1) <107> 
11@ REM * * <159> 588 REM <134> 
128 REM * CEO DESCHLOSS * “1227 S9Z REM ###*% SIGNALTON AUSGEBEN ###%*#+ <195> 
158 REM * _---------- -- - -. -. -. - %* <226> &8B POKE T,15 <145> 
148 REM « *:« GEarrtranNıNaerorR A = 1 TO 308 : NEXT A <B65> 
158 REM * BY TOBIAS NICOL * <199> 628 FOKE T,B <056> 
158 REM * * <209> 658 REM <184> 
178 REM x NEUWIESENSTRASSE 28 * <172> 648 REM *#x*# SIND SCHON CL ZAHLEN ##%** <Bö2> 
188 REM + * <229> 658 REM **** EINGEGEBEN WORDEN? rer <B18> 
198 REM * &B0B FRANKFURT 71 * xQB12> 6468 I = I +1 <135> 
208 REM * * <x2497> 678 IF I = CL + i THEN 728 <B95> 
Z1B REM HE RER ERERRREREHRHHRRERRRR <992> 688 REM x234> 
228 REM <B26> 698 REM ####%#%*%%#%# RUECKSFPRUNG #800 0%% <?98> 
238 REM *%**%#**%*%# INITIALISIERUNG *###%%#%* <201> 788 GOTDO 428 <176> 
248 R = 56577 =: FPOKE 56579,1 : POKE R,® <219> 718 REM <B98> 
2580 T = 5429 : I=1: CL=&6 <179> 72B REM * EINGEGEBENER CODE RICHTIG? + <16553> 
268 Ci$ = "123456" 3 C2$ = <x178> 738 IF Ci# = C2# THEN 798 <1165> 
278 REM <B78B> 748 REM <B38> 
288 REM *##%*%*%* SID-CHIF EINSTELLEN ##%##%* <xB9 > 75@ REM *** CODE IST NICHT RICHTIG! x##* <g1B> 
290 SI = 54272 <B77> 768 FRINT "<2DOWN,GREEN}FEHLER! ! ! {CYAN}F" <132> 
SsBa® FOKE SI+ 7,287 : FOKE SI+ 8,200 «131> 778 FOR A = 1 TO 2888 : NEXT A : RUN <239> 
S1B FOKE SI+15,248 : POKE SI+11,17 <B22> 788 REM <D88> 
328 REM <128> 798 REM xx##%%** CODE IST RICHTIG! x##x%#%*%*+ <027> 
352 REM *#%*#*%* BILDSCHIRM AUFBAUEN #*#%** <105> 888 FRINT "«2DOWN,„GREEN}FRICHTIG! ! ! CYAN?" <BiY7> 
Ss48B FRINT "<CLR „DOWN ,„SRIGHT „BLACK +CODESCHL 818 PRINT "{ZDOWN}BITTE MIT KONTAKT 2" <141> 
055" <1897> 828 PRINT "<DOWN}LOESCHEN! " <116> 
3558 PRINT "XSRIGHT}---—- CYAN }”" <237> 8538 REM <138> 
3568 PRINT "{2DOWN}GEBEN SIE BITTE DEN{DOWN 848 REM *** USER-PORT-SIGNAL SETZEN ##* <B81 > 
y. <B59> 858 POKE R „ { FEEK (R) ) OR 1 <179> 
378 PRINT "CODE EIN. JEDER KON- {DOWN}" <B78> B&öB REM <16B> 
588 PRINT "TAKT WIRD MIT EINEM{DOWN}" <BS1> 878 REM x#** AUF DEN RESET WARTEN #%### <BAds> 
398 PRINT "TON BESTAETIGT." <058> 888 IF (( FPEEK (R)) AND 2) = 2 THEN 878 <105> 
488 FRINT "{2DOWN} (RESET: KONTAKT 2)" <140> 898 RUN | <178> 
418 REM <218> 708 REM <2u8> 
420 REM ##*%*%* KONTAKT BETAETIGT? ###%% <B42> 918 REM <218> 
438 PR = (( PEEK (R) AND 254 )) <158> 928 REM <22B> 
44B IF { PR AND 254 ) = 754 THEN 420 <B85> F3B REM KHRHRRERREEREERERERERHÄRRRREHH <222> 
458 REM <B92> 29408 REM *** AENDERUNGEN FUER VC-28 #*#%** <BB3> 
468 REM *** KONTAKTNUMMER ERRECHNEN ##*#* x162> 950 REM KRaHuRERRREREREREERRRERHRRRRER <242> 
478 X = LOG ( 254 - PR) / LOG (2) - 1 <103> 960 REM <B04 > 
488 REM <832> 778 REM LOESCHEN SIE : ZEILEN 299-318 <185> 
478 REM ***%*%* WERTE KONTROLLIEREN ##x**# <205> 988 REM <9a24> 
soo IF ( x<BD OR (X >»& ) THEN 428 <B11> 998 REM GEBEN SIE EIN : 1273 
si® IF X <> INT (X) THEN 428 <244 5 1228 REM <B44 > 
528 REM <974> 181@8 REM 248 R=3713&4:FPOKE 57138,1 <285> 
53B REM xxux&H#8#%% RESET? KRRERREEER <@84 > 1228 REM 258 FOKE R,8:T=359878: I=1:CL=4 <BBB> 
548 IF X = B THEN RUN <i11l> 1058 REM 298 FOKE 34876,228 <229> 
3oß REM <1B4> us 
S6@ REM * EINZUGEBENDEN CODE AUFBAUEN #* <109> 6 64’er Listing 2. Das Codeschloß 


132 234 
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C 64/VC 20 Speicherlandschaft 


Gelegentlich erwähne ıch bei 
meinen Erklärungen, daß wich- 
tige Dinge der Commodore- 
Computer nicht in den Handbü- 
chern stehen. 

Kürzlich erhielt ich zu diesem 
Thema den Brief eines Lesers, 
der mich darauf hinwies, daß 
entgegen meiner Behauptung 
die meisten der von mir vermiß- 
ten Erklärungen in einem Hand- 
buch, nämlich im »64 Intern« von 
Data Becker zu finden sind. Na- 
türlich hat dieser Leser recht: In 
diesem Buch steht in der Tat 
sehr viel Informatives. Ich be- 
nutze es selbst oft und kann es 
den fortgeschrittenen Compu- 
ter-Amateuren sehr empfehlen. 

Nur, lieber Leser, ich halte es 
nicht für ein Handbuch, sondern 
für Fachliteratur. Wenn ich 
Handbuch sage, dann meine ich 
die von Commodore offiziell her- 
ausgegebenen Schriften — für 
Anfänger und Amateure. Und 
diese Gattung könnte wirklich 
etwas ergiebiger sein. 


Adresse 183 ($SB7). 


Länge des derzeitigen Filenames 

Die LOAD-, SAVE- und VERI- 
FY-Befehle für Disketten verlan- 
gen die Angabe eines Pro- 
gramm- oder Dateinamens, auf 
Computerdeutsch »File-Name«. 
Nähere Angaben dazu finden 
Sie im Texteinschub # 1 »Files- 
Geräte-Namen-Nummern«. 

Auch der OPEN-Befehl kann 
einen File-Name haben. Bei Kas- 
settenoperationen kann der 
File-Name weggelassen wer- 
den. 

In der Speicherzelle 183 steht 
während und nach der Verwen- 
dung eines der oben genannten 
Befehle eine Zahl, die angibt, 
aus wievielen Zeichen der File- 
Name besteht. 

Bei Disketten sind File-Namen 
möglich, die aus maximal 16 Zei- 
chen bestehen. 

Bei Kassetten dagegen sind 
Namenslängen von maximal 187 
Zeichen erlaubt. Allerdings 
werden vom Computer auf dem 
Bildschirm nur 16 Zeichen aus- 
gedruckt (siehe dazu den Text- 
einschub »Tape-Header«). 

Für die Längenangabe in Zel- 
le 183 gilt dabei nur die Anzahl 
derjenigen Zeichen, die zwi- 
schen den Gänsefüßchen ste- 
hen. 

Diese Zahl kann nach einer 
Ein/Ausgabeoperation, auch 
nach einer ungültigen oder ab- 
gebrochenen, durch PEEK (183) 
ausgelesen werden. 

Ein File-Name wird übrigens 
auch bei einem OPEN-Befehl 
der RS232-Schnittstelle angege- 
ben. Dieser Name, der bis zu 
vier Zeichen lang sein kann, 
wird in die Speicherzellen 659 
bis 662 übertragen und gibt dort 
die Übertragungsräate, Wortlän- 
ge und Parity-Prüfung an. 
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Bei unserer Wanderung durch die 
Speicherlandschaft treffen wir heute 
auf die Speicherstellen 183 bis 199. 
Sie sind unter anderem auch für die 

Filenummer, Geräteadressen und 

Sekundär-Adresse verantwortlich. 


Adresse 184 (SB8) 


Nummer der derzeitigen Datei (File) 
Hinter jedem OPEN-Befehl 
steht eine Zahl, die der durch 
diesen Befehl angefangenen 
Datei zugeordnet wird. Diese 
Datei- oder File-Nummer gilt als 
Referenz für alle anderen Ein- 
und Ausgabebefehle derselben 
Datei. Nähere Angaben dazu 
können Sie dem nebenstehen- 
den Texteinschub Nr. 1 »Files- 


Der jeweilige Wert der Se- 
kundär-Adresse steht in der 
Speicherzelle 185, allerdings um 
96 erhöht. Für Sekundär-Ädres- 
sen stehen, über die Standard- 
werte der einzelnen Peripherie- 
geräte hinaus, die Zahlen von 0 
bis 31 zur Verfügung. Ab 32 fängt 
in Zelle 185 wieder der Zyklus 
ab O0 an. Das können wir uns an- 
schauen. Ich wähle zur Eröff- 
nung einer Datei wieder den 
Bildschirm als »nicht-störendes« 
Empfangsgerät. 


Geräte-Namen-NummemssentnnZ eiB@HEN 1,3,A:PRINT 


nehmen. 

Ein OPEN-Befehl ruft die ent- 
sprechende Routine des Be- 
triebssystems auf, welche die 
File-Nummer in die Speicherzel- 
le 184 schreibt. Vor dort kann sie 
mit PEEK(184) ausgelesen wer- 
den. Geben Sie die folgende 
Zeile direkt ein: 

A=30:OPEN A,3:PRINT PEEK 
(134):CLOSE A 

Um verschiedene File-Num- 
mern auszuprobieren, definie- 
ren wır sie als Variable A. Nach 
dem»A«des OPEN-Befehls steht 
die Zahl 3. Damit wird der Bild- 
schirm angewählt (siehe 
»Sekundär-Adresse« im schon 
erwähnten Texteinschub). Das 
Anwählen des Bildschirms ver- 
meidet eine störende Meldung 
des Betriebssystems. 

Mit RETURN nach der oben- 
stehenden Zeile wird der jewei- 
lige Wert von A als Inhalt der 
Zelle 184 ausgedruckt. 


Adresse 185 ($B9) 


Derzeitige Sekundär-Adresse 

Die Sekundär-Adresse steht 
als dritte Angabe hinter denEin- 
und Ausgabe-Befehlen LOAD, 
SAVE, VERIFY und OPEN. Sie 
hat bei den verschiedenen Peri- 
pheriegeräten spezielle Funk- 
tionen. Diese Funktionen sind im 
nebenstehenden Texteinschub 
näher erläutert. 


PEEK(185)—96:CLOSE 1 

Durch Verändern des Wertes 
von A können Sie alle Möglich- 
keiten durchspielen. 


Adresse 186 (SBA) 


Derzeitige Geräte-Nummer 

Jedes an den Computer an- 
schließbare Gerät hat eine eige- 
ne Nummer, die zusammen mit 
den Ein/Ausgabe-Befehlen LO- 
AD, SAVE, VERIFY und OPEN 
angegeben werden muß. Wird 
keine Nummer angegeben, 
nimmt der Computer automa- 
tisch an, daß die Datasette ge- 
meint ist. 

Alle von Commodore vorge- 
gebenen Geräte-Nummern sind 
in der folgenden Tabelle aufge- 
listet. 


Geräte- 
Nummer 


angesprochenes 
Gerät 


0 Tastatur 

l Datasette 

2 RS232- (User-Port) 
Schnittstelle 

3 Bildschirm 

4 Drucker (normal) 

5 Drucker (zusätz- 
lich) 

8 Disketten- 
Laufwerk Nr. 0 

9 Disketten- 
Laufwerk Nr. 1 


weitere Disketten- 
Laufwerke 


Die normale Geräte-Nummer 
eines Druckers ist 4, die eines 
Disketten-Laufwerks 8. Die zu- 
sätzlichen Nummern müssen ge- 
sondert am betreffenden Gerät 
eingestellt werden. 

Nach der Ausführung eines 
der oben genannten Befehle 
steht die entsprechende Geräte- 
Nummer in der Speicherzelle 
186, aus der sie mit PEEK(186) 
ausgelesen werden kann. 


Adresse 187 bis 188 
($BB bis $BC) 


Zeiger auf Adresse des derzeitigen File- 
Namens 

Die Bedeutung eines Pro- 
gramm- oder Dateinamens — 
normalerweise kurz »Files- 
Name« genannt, sind im neben- 
stehenden Texteinschub »File- 
Geräte-Namen-Nummern« nä- 
her beschrieben. In den Speı- 
cherzellen 187/188 steht in der 
Low/High-Byte-Darstellung ein 
Zeiger auf diejenige Adresse im 
Programm-Speicher, wo dieser 
Name gespeichert ist. 

Eine Ausnahme ist hier der 
OPEN-Befehl der RS232- 
Schnittstelle. Ihr File-Name wird 
in die Speicherzellen 659 bis 662 
gebracht, wo er verschiedene 
Parameter dieser Schnittstelle 
steuert. 


Adresse 189 (SBD) 


Zwischenspeicher für RS232-Parity- 
Prüfung und für Kassettenoperationen 

Die RS232-Routinen benutzen 
diese Speicherzellen als Zwi- 
schenspeicher für ein Prüf-Byte 
(Parity-Prüfung) bei der Ausga- 
be. Die Parity-Prüfung habe ich 
kurz im letzten Heft im neunten 
Teil des Kurses erklärt. 

Auch die Kassetten-Routinen 
bedienen sich dieser Speicher- 
zelle. Sie verwenden sie als Zwi- 
schenspeicher für das gerade 
gesendete oder empfangene 
Zeichen. 


Adresse 190 (SBE) 


Blockzähler für Kassetten-Ein-/Ausgabe 
Das Betriebssystem des Com- 
puters schreibt bei SAVE ein 
Programm zweimalaufdasBand 
der Datasette. Beim LOAD-Be- 
fehl wird der erste Block in den 
Arbeitsspeicher des Computers 
geladen; der zweite — identi- 
sche — Block wird dann mit dem 
ersten Block Byte für Byte vergli- 
chen, um Datenfehler auf dem 
nicht immer ganz zuverlässigen 
Bandmaterial zu erkennen. 

In der Speicherzelle 190 wird 
dem Betriebssystem angezeigt, 
wieviele Blockteile bei diesem 
Prozeß noch gelesen oder ge- 
speichert werden müssen. Vom 
Basic-Programm aus ist diese 
Speicherzelle nicht zugänglich. 
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Speicherlandschaft C 64/VC 20 


Adresse 191 ($BF) 


Zwischenspeicher für LOAD-Operationen 
vom Band 

Diese Speicherzelle wird 
beim Laden eines Programms 
vom Band dazu benutzt, um Zei- 
chen aus einzelnen Bits zusam- 
menzusetzen. 


Adresse 192 ($C0) 


Motorsperre der Datasette 

Die Tasten der Datasette wer- 
den sechzigmal in der Sekunde 
von der »Interrupt-Routine« des 
Betriebssystem überprüft, ob ei- 
ne von ihnen gedrückt worden 
ist. Die Speicherzelle 192 spielt 
dabei eine entscheidende Rolle, 
beim C 64 allerdingsin einer an- 
deren Weise als beim VC 20. 
Wie sie diese Rolle beim C 64 
spielt, ist im Zusammenhang mit 
der Speicherstelle 1 ganz am 
Anfang dieses Kurses beschrie- 
ben worden (siehe 64’er-Aus- 
gabe, 11/84, Seite 173). Ich habe 
dabei iin zwei Beispielen gezeigt, 
wie durch Abfrage des vierten 
Bits von Adresse | geprüft wer- 
den kann, ob eine Taste der Da- 
tasette gedrückt ist und wie der 
Motor durch Setzen und Lö- 
schen des Bit 5 der Zelle 1 ein- 
und ausgeschaltet werden kann. 
Vorausgesetzt, der Inhalt der 
Speicherzelle 192 ist ungleich 
Null und eine Taste der Dataset- 
te ist gedrückt. 

Heute will ich, wie damals ver- 
sprochen, denselben Vorgang 
für den VC 20 beschreiben. 

Wie Sie sich vielleichtnoch er- 
innern, wird die Speicherzelle 1 
beim VC 20 nicht für die Steue- 
rung der Ein-und Ausgänge des 
Mikroprozessorss verwendet. 
Diese Rolle wird beim VC 20 
durch zwei Register des »Versa- 
tlle Interface Adapter« (VIA 
6522-A) ausgefüllt. 

Für die Abfrage der Data- 
setten-Tasten ist das sechste Bit 
des VIA-Registers 37151 zustän- 


dig. Bei gedrückter Taste steht‘ 


es auf 1, sonst auf 0. Ein kleines 
Programm zeigt es Ihnen: 
10 X = PEEK@TISI) 


20 PRINTX 

30 IFX = 62 THEN 50 

40 GOTO 10 

50  PRINT”TASTE 
GEDRÜCKT” 


Wenn keine Taste gedrückt 
ist, läuft ein Zahlenband mit 126 
ab. Die entsprechende Darstel- 
lung als Dualzahl lautet 1111 1110. 
Bei einer gedrückten Taste steht 
in 37151 die Zahl 62, als Dualzahl 
0011 1110. Wichtig, wie gesagt ist 
nur das zweithöchste Bit. 

Mit der Abfrage der Zeile 30 
springt beim Drücken einer Ta- 
ste das Programm auf die Zeile 
90 und druckt den Text aus. 

Den Motor der Datasette kön- 
nen wir mit Hilfe des Registers 
37184 schalten. Wie beim C 64 
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gilt auch jetzt, daß dazu die hier 
angesprochene Speicherzelle 
192, auch Interlock-Register ge- 
nannt, eine Zahl größer als 0 ent- 
hält und daß außerdem eine Ta- 
ste der Datasette gedrückt ist. 
Drücken Sie auf PLAY und ge- 
ben Sie direkt ein: 

POKE 192,255 

POKE 37148,251: der Motor 
bleibt stehen. 

POKE 37148,252: der Motor läuft 
los. 

Bestimmend sind hier Bit 2, 3 
und 4. 

Zum Ausschalten muß ledig- 
lıch Bit 2 auf 1 stehen, zum Ein- 
schalten die drei Bits auf 110. Je- 
de Zahl, die als Dualzahl diese 
Bedingungen erfüllt, kann dafür 
hergenommen werden. Um un- 
abhängig von den anderen Bits 
des Registers 37148 zu bleiben, 
die ja auch ganz bestimmte an- 
dere Funktionen haben, emp- 
fiehlt es sich, über Boole’'sche 
Verknüpfungen nur die wichti- 
gen drei Bits zu verändern. Die 
beiden POKE-Befehle sehen 
dann so aus: 

Ausschalten: POKE 37148,PEEK 
(37148) OR 2 

Einschalten: POKE 37148, PEEK 
(37148) AND 12 


Adresse 193 bis 194 
(SCI bis $C2) 


Anfangsadresse für Ein-/Ausgabe- | 


Operationen 

In diesen Speicherzellen steht 
in Low/High-Byte-Darstellung 
die Adresse, ab der ein Pro- 
gramm gerade geladen oder 
gespeichert wird. Dieses Adres- 
se wird übrigens von hier auch 
in die Speicherzellen 172/173 
gebracht, die wir schon früher 
besprochen haben. 

Bei LOAD und SAVE auf Band 
steht hier die Anfangsadresse 
des Bandpuffers (828). Im Band- 
puffer steht allerdings nur der 
sogenannte Bandvorspann (auf 
englisch »Tape Header«), wäh- 
rend der Hauptteil des Pro- 
gramms im Programmspeicher 
ab einer Adresse steht, auf die 
der Zeiger in den Speicherzel- 
len 195/196 hinweist. 


Adresse 195 bis 196 
($C3 bis $C4) 


Zeiger auf den Anfang des Programms 
hinter dem Tape Header 

Bei jedem LOAD- und SAVE- 
Befehl für Kassetten wird der 
Vorspann (Tape Header), indem 
Programmtyp, Anfangs- und 
Endadresse aufgezeichnet sind, 
ım Kassettenpuffer ab Adresse 
828 gespeichert. Der eigentli- 
che Teil des Programms steht 
dann im Programmspeicher. 

In den Speicherzellen 195/196 
steht in der Low-High-Byte- 
Darstellung diese Adresse, ab 


der das Programm beginnt. Ich 
habe für alle diejenigen, die mit 
der Datasette arbeiten, im ne- 
benstehenden Texteinschub # 
2 »Tape-Header« die Zusammen- 
hänge mit einem Beispiel darge- 
stellt. 


Adresse 197 ($C5) 


Tasten-Code der zuletzt gedrückten Taste 

In Ausgabe 6/85 des 64’er auf 
Seite 123 habe ich Ihnen mit Wort 
und Bild beschrieben, wie die 
Tasten des Computers abge- 
fragt werden. Die dabei fürjede 
Taste entstehende Dwualzahl 
wird in eine Dezimalzahl (0 bis 
63) umgewandelt und zuerst in 
die Speicherzellen 203 bezie- 
hungsweise 653 gebracht. Zur 
Umwandlung und Abfrage der 
Zellen 203 und 653 bringe ich 
das nächste Mal mehr Details. 
Nach der Prüfung, welche Taste 
gedrückt worden ist, wird die 
Codezahl von 203 in die Spei- 
cherzelle 197 gebracht und dort 
»aufgehoben«. Diese vermeintli- 
che Verdoppelung wird vom Be- 
triebssystem dafür gebraucht, 
um zu erkennen, ob die nächste 
gedrückte Taste mit der vorher- 
gehenden identisch ist. Ist sie 
identisch, dann entscheidet der 
Inhalt der Speicherzelle 650, ob 
das Zeichen dieser Taste mehr- 
fach ausgedruckt wird. In 650 
steht die sogenannte Wieder- 
holfunktion. Aber ich will nicht 


WerSE:ifen. Die Codezahlen der 


einzelnen Tasten werde ich bei 
der Besprechung der Zelle 203 
auflisten. 


Adresse 198 ($C6) 


Anzahl der Zeichen im Tastaturpuffer 

Die Funktion des Tastaturpuf- 
fers, zu dem wir bei den Spei- 
cherzellen 631 und 640 noch 
kommen werden, habe ich be- 
reits in diesem Kurs und zwar in 
Ausgabe 7/85 auf Seite 141/142 
im Texteinschub »Dynamische 
Tastenabfrage« erklärt. Dabei 
habe ich damals schon sozusa- 
gen im Vorgriff die Zelle 198 ver- 
wendet. 

In dieser Speicherzelle steht 
die jeweilige Anzahl der Zei- 
chen, die im Tastaturpuffer ge- 
speichert sind und darauf war- 
ten, weiterverarbeitet zu wer- 
den. 

Das folgende kleine Pro- 
gramm zeigt es. 

10 GETA$ 

20 PRINT PEEK (198);A$ 

30 FOR ]J=1 3000:NEXT ]J 

40 GOTO 10 


Der GET-Befehl holt ein Zei- 
chen aus dem Tastaturpuffer — 
sofern eines dort zu finden ist. 
Die Zeile 20 druckt die Anzahl 
der Zeichen im Puffer aus, dane- 
ben das erste dieser Zeichen. 
Dann folgt eine Warteschleife, 
die uns erlaubt, ganz schnell ein 
paar Tasten zu drücken. Danach 


springt das Programm an den 
Anfang zurück und arbeitet die- 
se eingegebenen Zeichen ab. Es 
ist dabei deutlich zu sehen, wie 
durch den GET-Befehl bereits 
ein Zeichen aus dem Puffer ge- 
nommen und dadurch der Inhalt 
der Zelle 198 sofort um 1 redu- 
ziert wird. 

Der Inhalt der Speicherzelle 
198 kann mit POKE auch verän- 
dert werden. 

Eine sinnvolle Anwendung 
dieser Beeinflussung erlaubt 
der nicht gerade sehr populäre 
WAIT-Befehl. 

Ersetzen Sie bitte im obigen 
Programm die Warteschleife 
der Zeile 30 durch: 

30 POKE 198,0: WAIT 198,1 

Zuerst wird dem Computer 
vorgegaukelt, daß der Tastatur- 
puffer leer sei. Durch den WAIT- 
Befehl wartet das Programm da- 
nach solange, bis ein Zeichen im 
Tastaturpuffer erscheint und 
springt erst dann auf die nächste 
Zeile 40. 

Wenn Sie nach dem WAIT-Be- 
fehl statt der 1 eine 2 eingeben, 
wartet diese Zeile entsprechend 
auf zwei Tasteneingaben. Aller- 
dings wird in der Zeile 20 dann 
nur jedes zweite Zeichen ausge- 
druckt. 


Adresse 199 ($C7) 


Flagge für inverse Darstellung der Zei- 

chen 
Mit dieser nützlichen Adresse 
fahren wir das nächste Mal fort. 
(Dr. H. Hauck/ah) 
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Fortsetzung von Seite 134 
Gelegenheit, etwas Systema- 
tik in die Angelegenheit zu 
bringen. | 

Als erstes gebe ich die Be- 
zeichnungen der Befehle aus 
einem Commodore-Buch 
wieder, bevor die einzelnen 
Angaben im Detail diskutiert 
werden. 
— LOAD "File-Name", Geräte- 
Nr., Speicheradressen-Flag 
— SAVE "File-Name", Geräte- 
Nr., EOT-Flag 
_ VERIFY "File-Name”, Ge- 
räte-Nr., Speicheradressen- 
Flag 
— OPEN File-Nr., Geräte-NTr., 
Sekundär- Adresse, "File-Na- 
me, Typ, Modus” 
— INPUT # File-Nr., Variable 
— GET# File-Nr., Variable 
— CMD File-Nr. 
— CLOSE File-Nr. 


File-Name 
»File« wird normalerweise 
mit »Datei« übersetzt. 

Einen Datei-Namen gibt es 
aber nur beim OPEN-Befehl. 
Bei den Befehlen LOAD, SA- 
VEund VERIFY istder Name 
des Programms gemeint, 
der bekanntlich in Gänse- 
füßchen hinter diesen Befeh- 
len steht. Bei Disketten als 
Pflicht, bei Kassetten als Op- 
tion. Beim OPEN-Befehl steht 
der Name zwar auch in Gän- 
sefüßchen, aber nicht direkt 
hinter dem Befehl, sondern 
erst an vierter Stelle. Auch er 
kann bei Kassetten-Betrieb, 
aber auch beim Drucker 
weggelassen werden. 

Bei Disketten-Dateien steht 
hinter dem Namen — als sein 
Bestandteil — noch Typ und 
Modus. Typ bezeichnet die 
Art der Datei (RELative, SE- 
Quential, USeR, PRoGramm), 
Modus die Operation (Read, 
Write, Append). 

Der File-Name kann bei 
Disketten auch eine Anwei- 
sung an das Betriebssystem 
desDisketten-Laufwerkssein 
(NEW, SCRATCH, RENAME 
etc) Nähere Erklärungen 
dazu finden Sie im Handbuch 
des Disketten-Laufwerks. 

Da in 187/188 die Adresse 
angegeben ist, ab der der 
Programm- beziehungswei- 
se Datei-Name im Speicher 
steht, Können wir ihn dort an- 
sehen. 

Geben Sie direkt ein 
LOAD "1234" 

Nach der RETURN-Taste 
kommt die übliche Aufforde- 
rung der Datasette, die wir 
aber mit der STOP-Taste ab- 
würgen. In 187/188 steht jetzt 
die Anfangsadresse »A« des 
gespeicherten Namens: 

A = PEEK(187)+256*PEEK 
(188):PRINT PEEK(A) 


Wir erhalten die Zahl 49, 
das ist der ASCII-Codewert 
der Ziffer »l«. Durch Erhöhen 
der Anfangsadresse »A« im 

RINT-Befehl um jeweils |], 
xommen auch die übrigen 
Zeichen des Namens zum 
Vorschein. 

Die VC 20-Besitzer kennen 
sicher den Effekt, der ent- 
steht, wenn beim SAVE- 
Befehl vor dem File-Namen, 
aber innerhalb der Gänse- 
füßchen, eine Farbtaste ein- 
gegeben wird. Die FOUND- 

nämlich 
den Fe Namen in der ge- 
vählten Farbe aus, was be- 
sonders bei Kassetten- 
Operationen sehr eindrucks- 
> ist. 

Das Disketten-Laufwerk 
Bieket eine andere Überra- 
schung. Die geSHIFTete 
SPACE-Taste innerhalb des 
File-Namens, erzeugt das 
EB cu 


SPACE) SYS 16000° ‚8 
erscheint in der Directory 
als: "SPIEL 2" SYS 16000 
und kann mit LOAD”SPIEL 
2',8 geladen werden. 


Geräte-Nummer 

Alle an den Computer an- 
schließbaren Peripheriege- 
räte haben eine eigene Num- 
mer, unter welcher sie »an- 
gesprochen« werden Kön- 
nen. Es handelt sich eigent- 
lıch um eine Adresse, und in 
der Tat sprechen manche 
Autoren von der »Primär- 
Adresse«. In der Beschrei- 
bung der Speicherzelle 184 
sind sie alle zusammenge- 

Bei den Befehlen LOAD, 
steht diese Geräte-Nummer 
als zweite Angabe, vor der 
ersten Angabe durch ein 
Komma getrennt: 
LOAD”’NAME’'l.....bedeutet 
"Laden von Datasette’” 
LOAD"”NAME'’'8.....bedeutet 
"Laden von Diskette’ 
OPEN 12.4.....bedeutet "An 
den Drucker” 

a 12 N a. Sea 


an md Se 

Die Gerätenummer kann 
auch weggelassen werden. 
Dann allerdings nimmt der 
Computer automatisch an, 
daß essich um die Datasette 
handelt. Die Geräte-Num- 
mer steht jeweils in der Spei- 
cherzelle 186 und kann von 
dort mit PEEK ausgelesen 
werden. 
Sekundär-Adresse 

Die dritte Angabe hinter 
LOAD, SAVE und OPEN hat 
widersprüchliche Namen, 


wohl deshalb, weil sie abhän- 
gig von der Gerätenummer 
verschiedene Aufgaben hat. 
Von den ganz am Anfang 
schon genannten Varianten 
gefällt mir »Sekundär-AÄdres- 
se« am besten. 

Die folgende Tabelle faßt 
die Funktionen der Sekun- 
där-Ädresse zusammen. 

Sie sehen, die Sekundär- 
Adressen haben es in sich! 
Die gerade benutzte Sekun- 
där-Adresse steht in der 
Speicherzelle 185 und kann 
mit PEEK von dort ausgele- 
sen werden. 

File-Nummer 

Die File-Nummer, oft auch 
logische File-Nummer ge- 
nannt, steht als erste Angabe 
hinter dem OPEN-Befehl und 
den damit verbundenen 
PRINT#- INPUT#- GET#- 
und CLOSE-Befehlen. 

Sie gibt einer zu bearbei- 
tenden Datei eine Nummer, 
die von den nachfolgenden, 
anderen Befehlen ebenfalls 
verwendet werden muß, 
wenn sie sich auf dieselbe 
Datei beziehen. Auf diese 
Weise können mehrere Da- 
teien nebeneinander bear- 
beitet werden, und zwar fünf 
bei Disketten und auf alle 
Geräte verteilt insgesamt 
zehn. 

zjesÖs/ummern dürfen die 


Werte von 1 bis 255 haben. 


Bei Werten über 127 wird bei 
einem PRINT #-Befehl nach 
jedem RETURN-Zeichen — 
CHR$(3) — zusätzlich ein 
ASCII-Code für Zeilenvor- 
schub — CHR$(10) — an das 
Gerät gegeben. Diese Ei- 
genschaft kann bei denjeni- 
gen Geräten nützlich sein, 
die normalerweise auf 
CHR$(3) ohne Zeilenvor- 
schub reagieren (kein auto- 
matisches Line-Feed). 

Die EISNUnDeE Se = 


184, von wo sie u PEEK aus- 
gelesen werden kann. Zum 
Beispiel, um nachzuprüfen, 
welches Gerät als letztes an- 


gesprochen worden ist. 


Abschließend möchte ich 
nochmals darauf hinweisen, 
daß in den Speicherzellen 
183 bis 188 immer die gerade 


als letzte verwendete Anga- 


be steht. Wir haben aber ge- 
sehen, daß der Computer 
sich maximal zehn File- 
Nummern mit dazugehören- 
den Geräte-Nummern, Se- 
kundär-Adressen etc. mer- 
ken kann. 

Er tut dies in speziellen Ta- 
bellen, die in den Speicher- 
zellen 601 bis 630 stehen. 

Wir werden uns also noch 
einmal EN Gieser es = 


| lädt Programm a anden Anfang des Pro- 
ammspeichers 


VE pa wird bei: späte- = 


rem LOAD an den a EEE Program r 


die aringı bei open SB de Bäresse v wo es z zur 
Zeit steht (Maschinen-Pro« ramme) 


Ü Ban: de Band mit ar N 
dung »DEVICE NOT PRESENTK« stoppt. 


bei Kas- 


Kombination von 1 und 2 


_ OPEN BE ° = Daten lesen 
| Daten schreiben 


_ Daten schreiben mit »Bandende«-Markierung 


vom Betriebss, 
reserviert 


stem der Flo Floppy für »Laden« = 


vom Betriebssystem der Floppy für »Spei- 
chern« reserviert 

reserviert numerierten Daten-Kanal, bis zu 
drei gleichzeitig | 


reserviert Komm 


[o (o-Kanal 


ee Angaben z zu een nn 





Speicherlandschaft C 64/VC 20 


Tereinschub # 2 


Fortsetzung von Seite 45 

möchten, finden den Anschluß 
BASIC an Pin 20 vom Sockel des 
Basic-ROMs beziehungsweise 





| ER - der Ädapterplatine, und Basic- 
Tape Hesder- 8 | 0. oder leer 1 Basic-Programm ROM an Pin 20desROMsselber, 
Wenn ein Programm oder | I ‚8 Maschinen-Programm wo die Leitungen dann anzu- 
eine Datei auf Band gespei- 2 1 Basic-Programm mit End-Of’Tape-Marke_ schließen sind. Am einfachsten 
chert wird, setzt der Compu- 2 3 Maschinen-Programm mit End-OfTape- ist dies wohl durch Herausbie- 
ter vor das Programm einen Marke gen des Pins am Basic-ROM 
i Vorspann, der auf englisch Tabelle 1 (Achtung: nicht abbrechen) zu 


. ‚Tape-Header« genannt wird, 
Da dieser Name weit ver- 
‚breitet ist, will ich ihn hier 


chen lang sein. Bei LOAD 


Jetzt erscheint der volle 


bewerkstelligen, so daß dieser 
nicht im Sockel steckt und ein 
Kabel angelötet werden kann. 


beibehalten. Der Tape-Hea- werden allerdings nur 16 Zei- Programmname, gefolgt von Die Zusatzplatine ist so ausge- 
der ist 192 Byte lang. Er ent- chen auf dem Bildschirm nicht sichtbaren Leerstellen. | Ct, daß man sie mit an den 
. hält alle wichtigen Angaben dargestellt. Wenn Siem der eier DE Schrauben, die auch zur Befesti- 
über das nachfolgende Pro- = Jetzt wollen wir das alles rekteingabe den CHR$-Teil gung der Tastatur dienen, instal- 
gramm, mit einem kleinen Experi- weglassen, dann druckt die lieren kann. Ob man sie in der 


Beim. den“ eines Pro- 
gramms- wird der Tape Hea- 
‚der im Kassettenpuffer ge- 
speichert, für den die Spei- 
‚cherstellen 828 bis 1019 re- 
serviert sind. Von dort kann 
der Inhalt des Tape-Headers 
gelesen ‚und analysiert WeT- 
den. EZ 
Bevor. wir das ecen 

will ich erst seine Zusam- 
'mensetzung erklären. 
Im ersten Byte steht eine 
Kennzahl für den Typ des 
Programms. Diese Kennzahl 
ist abhängig von der Sekun- 
där-Adresse, die beim SA- 
VEn eingegeben worden ist. 
Die Arten der Sekundär- 
Adressen und ihre Bedeu- 
tung ist im anderen Textein- 
schub »Files-Geräte-Namen- 
Nummern« genau beschrie- 
ben. Es gibt zwei Kennzah- 
len; ] und 3. 

In Anlehnung an die Erklä- 
zung der Sekundär-Adresse 
kann man die Kennzahl ge- 
nerelldadurch beschreiben, 
daß ein Programm mit Kenn- 

zahl l ımmer an den Anfang 


des zur Verfügung stehen- 


den Programm-Speichers 
geladen wird, Hauptsächlich 
kommt das für Basic-Pro- 
gramme in Frage. 


ment überprüfen. 
Schreiben Sie bitte ein klei- 
nes Programm, es braucht 
nicht sehr sinnvoll zu sein, 
wie zum Beispiel: 
10 REM TAPE HEADER 
20 REM TEST PROGRAMM 
Nehmen Sie ein leeres 
Band und laden das Pro- 
gramm mit einem Namen, 
derlänger seinsoll als 16 Zei- 
chen, zum Beispiel: 
SAVE "TEST PROGRAMM 


FUER INHALT TAPE HEA- 


DER” 
Nach Drücken der RE- 


| CORD- und PLAYTasten der 


Datasette meldet der Com- 
puter: 


FOUND TEST PROGRAMM 
‚FD: 


Es werden also nIAIOReE 
chen inklusive Leerzeichen 
gedruckt. Sobald das Pro- 


gramm geladen ist, schauen 


wir im Kassettenpuffer nach, 


was In den ersten fünf Bytes 


steht, danach lesen wir die 
restlichen Bytes des Puffers. 
Geben Sie direkt, ohne 
Zeilennummer, ein: 
FOR I=0 TO 4: PRINT PEEK 
(828+D);; NEXT, 
Sie erhalten die Zahlen 11 
8 41 8 (beim VC 20 mit 3-K- 


Sspeichererweiterungl | 44] 


Zeile die ASCII-Codes aus, 
und Sie sehen danndie Leer- 
stellen als Zahl 32. 


. Diese Resultate habe ich 
zur besseren Übersicht in Ta- 
belle 2 dargestellt. 

Die Kennzahl in Byte »Il« 
können Sie dadurch verän- 
dern, daß Sie dem oben ver- 
wendeten SAVE-Direktbe- 
fehl nach dem langen Na- 
men ein ‚ll anhängen. Im 
Ausdruck steht dann die 
Kennzahl »%«. 

Übrigens, wenn Sie in den 
Speicherzellen 195/196 nach- 
schauen, findenSie dort den- 
selben Wert wie in den Zel- 
len 829/830, so wie die Be- 
schreibung esin der Memo- 

mw, ıp erklärt. 

Vielleicht fragen Sie jetzt 
nach dem Nutzen dieser aus- 
führlichen Erklärung. Nun, 
hauptsächlich kann man da- 
mit Programme, die eigent- 
lich wegen LOAD ERROR 
nicht mehr ladbar sind, ret- 
ten. Oder aber man kann 


durch VerändernderZahlen ' 


in den Bytes 2 bis 5 nachträg- 
lich die Adressen ändern, in 
die das Programm geladen 
wird. Die erste Anwendung 
werde ich erklären, sobald 


linken oder rechten Seite an- 
bringt, ist völlig belanglos, nur 
sollte man die Taster auf der Ge- 
genseite befestigen, bezie- 
hungsweise vorher prüfen, ob 
die Einbautiefe der Taster ge- 
ring genug ist, so daß diese sich 
nicht mit der Zusatzplatine be- 
rühren. 

Die Taster werden an dem 
oberen Gehäuseteil über der 
Tastatur montiert, wobei man 
darauf achten sollte, daß genü- 
gend Platz für die ausgewählten 
Taster zur Verfügung steht 
(Durchmesser; am besten vom 
Inneren des Gehäuses anpas- 
sen). 

Ist die Adapterplatine so auf- 
gesteckt, daß die Kerben der 
ICs in Richtung Kassettenport 
zeigen und mit EPROM-Trans, 
dem Kernal und mindestens ei- 
nem EPROM 1 bis 3 bestückt, 
sind wir fertig und können den 
Computer wieder zusammen- 
bauen. 

Eventuell kann die Abschir- 
mung — dies ist die Pappe mit 
der Alu-Schicht — so aufge- 
schnitten werden, daß beim Ver- 
legen der Kabel von Adapter- 
zur Zusatzplatine keine Proble- 
me auftreten. 

Die Steckverbindung Tastatur 
— Computer kann nur in einer 


Eine Kennzahl 3 bewirkt, 4) wirzudenAdressendesKas- | Richtung aufgesteckt werden; 
daß das Programm an dieje- Danach geben wir wieder- setten-Puffers selbst kom- bei der Leuchtdiode zeigt das 
nige Stelle des Programm- m direkten men. rote Kabel zum Ein-Aus-Schalter. 
speichers geladen wird, wo FOR I-5 TO 192: PRINT Das Problem des LOAD Gehäuse  zusammenschrau- 
es vor dem SAVEn gestan- CHRY(PEEK(828+D);: NEXT oder SAVE mit geänderten | Pen, fertig. 


den hat. Das ist hauptsäch- 
lich derFallbeiProgrammen 
in Maschinensprache 


In Verbindung mit der Be- 


deutung der Sekundär- 
Adresse kann man den Zu- 
sammenhang wie Tabelle 1 


Beim VC 20 geben Sie in 
der FOR...NEXT-Schleife ei- 


..ne kleine Zahl ein, da der 


Bildschirmspeicher beim VO 
20 kleiner ist als beim © 64. 


Adresse 828 829 


Adressen ist aber zu umfang- 
reich für einen Texteinschub 
innerhalb dieses Kurses. Es 


wäre eigentlich einen eige- 


nen kleinen Beitrag wert. 











Ich betreibe diese Schaltung 
seit etwa 6 Monaten und möchte 
sie nicht mehr missen. Was ich 
damit aber zum Ausdruck brin- 
gen will, ist, daß die Stromver- 
sorgung den zusätzlichen Bela- 
stungen gewachsen ist; auch 


zeigt darstellen: 830 831 832 833 etc. = ee dato re keine Wärme- 

In Byte 2 und 3 steht in Low/ An | probleme aufgetreten. 
ee die Adres- Syn = £ 2 4 SR 3 Setc. Mır ist bekannt, daß sich viele 
se, ab der das Programm im Bedeutung Kenn- LowHigh Byte Low High Byte Namen in C64-Besitzer schwer dazu 
Speicher des Computers | zahl ASCH- durchringen können, ihren 
stand, als es gespeichert | = Code Computer äußerlich oder inner- 
wurde | RER 1 ] a a] 8 Tee? lich (Achtung! Garantieverlust) 
In Byte 4 und 5 steht die ent- ER — | zu verändern. Diesmal ist es 
a End-Adresse ei a 0) aber, glaube ich, eine Überle- 
des Programms. | | Resultat 1 l 4 41 4 T etc. gung wert. Alle, dıe nicht die 
Ab Byte 6 bis Byte 192 steht bei VC 20 (1065) ( 1025) Möglichkeit zum Herstellen der 
der Name des Programms. - Platinen haben, können sich an 
‚Tabelle ? den Verlag wenden. Lesen Sie 


dazu unseren Hardware-Leser- 
service. 


Er darf also maximal 187 Zei- 
| | (Peter Rausche/aw) 
Ausgabe 10/Oktober 1985 
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C 64 Assembler-Kurs 


Assembler ist keine Alchimie — Teil 12 


Im Gegensatz zum sonstigen Sprachgebrauch erregt das Kürzel CIA bei 
Commodore 64-Kennern angenehme Assoziationen. Die beiden ClAs 
(Complex Interface Adapter) unseres Computers und ihre Rolle bei 
der Unterbrechungs-Programmierung sollen in dieser Folge entschleiert werden. 





assen Sie uns kurz rekapitu- Möchten Sie also genau eine 


lieren: Als primäre Unterbre- .- a: en - yore 2 ee a nr er Een 
chungsanforderer hatten wir erunterzählen, dann muß die 
drei Bausteine unseres Compu- z N er a Ba Er Zahl 985248 als 4-Byte-Integer- 
ters benannt, nämlich den VIC- 06 56326 56582 TBLO TIMERB LSB Wert in die Speicher von Timer 
II-Chip und die beiden CIA- 07 56207 56583 TBHI TIMERB _MSB A und Timer B gebracht wer- 
Bausteine. GIA kommt von 08 56328 56584 TOD10THS Yo-Sekunden-Register den. Das führt dann zu den Wer- 
»Complex Interface Adapter« 09 56329 56585 TODSEC Sekunden-Register ten 0, 15, 8, 160 (weil 985248 = 
und ist die Bezeichnung für die 0A 56330 56586 TODMIN Minuten-Register 0*16777216 + 15*65536 + 8*256 
beiden Ein- und Ausgabe-Bau- 0B 56331 56587 TODHR Stunden-Register, + 160). O und 15 gelangen als 
steine, die den gesamten Ver- AM/PM-Flagge MSB beziehungsweise LSB in Ti- 
kehr zwischen dem zentralen 0D 56333 56589 JOR Unterbrechungs-Kon- mer B (also Register 07 und 06), 8 
Gehirn unseres C 64 und der Pe- trollregister und 160 sind MSB und LSB für 
ripherie managen. Wir hatten 0E 56334 56590 CRA Kontrollregister A den Timer A (Register 05 und 
bemerkt, daß ein CIA, der IRQ- OF 56335 56591 CRB Kontrollregister B 04). Sehen wir uns nun an, wie 
CIA (Adressen von 56320 bis wir dem Computer sagen, was 
56575), ausschließlich für die Tabelle 1. Die wichtigen Register der beiden CIAs mit diesen Startwerten in den 
maskierbaren Unterbrechun- " Timer-Registern geschehen 
gen zuständig ist. Dazu gehören soll. Die beiden Kontrollregister 
die 60mal pro Sekunde stattfin- Wie wäre eszum Beispiel mitIh- 56324 dezimal 37 LSB CRA und CRB beziehen sich 
denden »Timer-Interrupts«, die nen? 56325 dezimal64 MSB weitgehend auf die gleichnami- 


die Cursorbehandlung, die TI$- 
Uhr, die Tastaturabfrage etc. be- 
arbeiten. Der andere CIA, ge- 
nannt NMI-CIA, (Adressenraum 
56576-56831) ist nur für die nicht 
maskierbaren Unterbrechun- 
gen verantwortlich und wird bei 
normaler Nutzung des C 64 so 
gut wie nie eingesetzt. Ich gehe 
im folgenden davon aus, daß Sie 
keine RS232C-Schnittstelle in Ih- 
ren Computer eingesetzt haben. 
Sollte das aber der Fall sein, 
dann müßten Sıe darauf achten, 
die folgenden Beispiele — die 
den NMI-CIA betreffen — ohne 
gleichzeitigen Betrieb dieser 
Schnittstelle anzuwenden, weil 
sich sonst Störungen ergeben 
könnten. 

In der Folge 10 dieser Serie 
(64’er, Ausgabe 7/85) haben wir 
uns ein Register (das Register 13, 
Interrupt-Kontrollregister) der 
CIAs schon genauer angesehen 
und auch die Unterschiede bei- 
der Bausteine festgestellt. Dort 
war dann die Rede von Timern, 
Echtzeituhren, Alarm-Funktio- 
nen etc. Was es damit auf sich 
hat und wie man diese Möglich- 
keiten nutzen kann, das soll dies- 
mal unser Thema sein. Wir wer- 
den uns dazu alle Register der 
CIAs genauer ansehen, die für 
die von uns ausgewählten Unter- 
brechungsoptionen eine Rolle 
spielen. Dabei fallen einige un- 
ter den Tisch — das habe ich 
aber schon in Folge 10 angekün- 
digt —, nämlich diejenigen, die 
mit dem Verkehr über den se- 
riellen Port, beziehungsweise 
über die RS232C-Schnittstelle, 
zu tun haben. Es bleibt dann an- 
deren — kompetenteren — über- 
lassen, darüber zu schreiben. 
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Auch so bleibt uns genug zu 
tun. In Tabelle 1 finden Sie zu- 
nächst eine Übersicht der von 
uns behandelten Register. 

Sie sehen darin, daß jeder 


CIA über zwei sogen im 


mer (A und B) verfügt, sodann 
über die »Time of Day« (zu 
deutsch etwa »Tageszeit«) ge- 
nannte Echtzeituhr mit vier Regi- 
stern und schließlich noch über 
drei Kontrollregister, zu denen 
auch das schon erwähnte Regi- 
ster 13 gehört. Sehen wir uns zu- 
nächst die Timer an. 

Die Timer der ClAs. 

Insgesamt verfügen wir über 
vier dieser Timer: Timer AundB 
im CIAl und dasselbe nochmal 
im CIA2, Es handelt sich dabei 
um 16-Bit-Register, in die ein 
Startwert geschrieben werden 
kann, von dem an dann herun- 
tergezählt wird. Jedesmal, wenn 
dann der Wert O unterschritten 
ist, gibt es für uns die Möglich- 
keit, bestimmte Ereignisse statt- 
finden zu lassen. Man kann die- 
se Register unabhängig vonein- 
ander, aber auch kombiniert, 
benutzen. Ein Lesen des Regi- 
sters liefert immer den momen- 
tan gerade aktuellen Wert. Ein 
Schreiben in das Register führt 
automatisch zum Festlegen ei- 
nes Startwertes. Was an Optio- 
nen mit diesen Timern möglich 
ıst, wird über Kontrollregister 
gesteuert. Das CRA (Recister 
$ 0E) bezieht sich vor allem auf 
den Timer A, das CRB (Register 
$ OF) auf Timer B. Die 16-Bit- 
Register werden — wie gewohnt 
— In der Form LSB/MSB betrie- 
ben. In den Timer A des CIAl 
wird bei jedem V/O-Reset fol- 
gendes Wertepaar eingetragen: 


Das entspricht einem Start- 
wert von 16421. Im PAL-System 
hat der Quarz, der die Taktfre- 
quenz bestimmt, eine Frequenz 
von 17.734472 MHz. Die Prozes- 

wonz errechnet sich dar- 
aus mıtteis Division durch 18 zu 
985248.4 Hz (also etwas weniger 
als 1 MHz, was den europäi- 
schen C 64 langsamer macht als 
den amerikanischen, der etwas 
mehr als | MHz verwendet). 
Wenn mit dieser Geschwindig- 
keit der Timer heruntergezählt 
wird, erhält man genau einen 
Unterlauf alle %, Sekunden. Das 
ist der Weg, eine kontrollierte 
Zeitspanne durch den Timer 
zählen zu lassen. Sei X der ge- 
suchte Startwert, der zu einer 
Spanne von T Sekunden führt, 
dann kann man X berechnen 
mittels: 
X = 9852484 *T 

Der Integerwert von X ist dann 
in ein LSB und ein MSB zu teilen 
und in die Timer-Register einzu- 
tragen. Allerdings ergibt sich so 
eine natürliche Grenze. Die 
höchste durch 2 Bytes darstell- 
bare Zahl ist ja 65535. Wenn wir 
diesen Wertinden Timer schrei- 
ben, dann ist er alle Ys Sekun- 
den auf O0 heruntergezählt. Für 
längere Zeiten ist aber vorge- 
sorgt. Die beiden Timer AundB 
sind kombinierbar (wie, dazu 
kommen wir gleich noch) zu ei- 
nem 32-Bit-Recister. Die höchste 
Zahl X ist dann: 

4 294 967 296 = 2°32 

Damit kann im Extremfall eine 
Herabzählzeit von | Stunde, 12 
Minuten und zirka 40 Sekunden 
eingeplant werden, was für die 
meisten Zwecke ausreichen 
dürfte. 


gen Timer. Im Bild 1 finden Sie 
das Register $0E, also CRA und 
in Bild2dasandere Kontrollregi- 
ster CRB ($0F): 


Die Bedeutung der Bits 0 bis 4 
ist — Jeweils für den dazugehörl- 
gen Timer — identisch: 

Bit O 

an dieser Stelle führt zum soforti- 
gen Änhalten des Timers. | in 
diesem Bit startet das Herunter- 
zählen. 

Bits lund 2 

Diese beiden Bits hängen mit 
dem externen Signalverkehr zu- 
sammen und sollen für uns au- 
Ber acht bleiben. 

Bit 3 

Ist dieses Bit = 1, dann ist der 
sogenannte »One Shot«-Betrieb 
des Timers aktiv. Das bedeutet, 
daß vom Startwert an herunter- 
gezählt wird bis auf Null. Es fin- 
det nun das programmierte Er- 
eignis statt (zum Beispiel ein 
IRQ). Anschließend wird der 
Startwert wieder eingeladen 
und der Timer gestoppt. 

Im Gegensatz dazu läuft der 
»Continuous«-Betrieb, wenn das 
Bit den Wert O enthält. Dabei ge- 
schieht zunächst dasselbe wie 
beim One Shot Modus, der Ti- 
mer wird aber nicht angehalten, 
sondern der ganze Vorgang wie- 
derholt sich in einer Endlos- 
schleife. 

Bit 4 

Ein Hineinschreiben einer lin 
dieses Bit erzeugt ein sofortiges 
Neuladen der Timer-Register 
mit dem Startwert. Dabei ist es 
gleichgültig, ob der Timer gera- 
de läuft oder nicht. Schreibt man 
eine Null ein, hat das keine Wir- 
kung. 
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Beim Lesen des Registers ist 
dieses Bit immer 0. 

Zu diesem Bit und seiner Wir- 
kung ist noch etwas zu sagen. 
Das Neuladen des Timers ge- 
schieht 
— immer dann, wenn ein Unter- 
lauf stattgefunden hat oder 
— falls der Timer steht und in die 
Register ein Startwert geschrie- 
ben wird. Dabei ist der CIA so 
konstruiert, daß man kein 
zwangsweises Laden (also mit 
Bit4 = ])braucht, wenn man den 
Startwert in der Reihenfolge LSB 
MSB in die Register bringt. 

Die Bits 5 pis 7 haben nun un- 
terschiedliche Bedeutung im 
CRA und im CRB: 

Register CRA ($0E) 
Bit 5: 

Ist dieses Bit gleich Null, dann 
wird im Systemtakt gezählt. Den 
hatten wir vorhin zur Zeitberech- 
nung schon verwendet. Wenn 
das Bit auf 1 gesetzt ist, zählt der 
Timer externe Signale. 

Bit 6: 

Spielt für den Signalverkehr 
über den seriellen Port eine Rol- 
le und soll uns hier nicht weiter 
beschäftigen. 

Bit 7: 

Damit steuert man nicht den 
Timer A, sondern dieses Bit be- 
zieht sich auf die gleich noch zu 
behandelnde Echtzeituhr. 
Register CRB ($0F) 

Die Bits 5 und 6 sind hier im Zu- 
sammenhang von Bedeutung. 
Es gibt vier Kombinationsmög- 
lichkeiten: 

Bit 6 — Bit5 
0—0 

Der Timer B wird — wie vorhin 
der Timer A — im Systemtakt 
heruntergezählt. 

0—1 

Der Timer B wird durch exter- 

ne Signale heruntergezählt. 
1—0 

Der Timer B zählt die Unter- 
läufe von Timer A. Das ist der 
vorhin erwähnte Punkt, der bei- 
de Timer kombiniert zum 32-Bit- 
Zähler. Man kann also im Ex- 
tremfall 65536 mal 65536 Takte 
zählen lassen. 

1—1 

Auch in diesem Fall zählt Ti- 
mer B die Unterläufe von Timer 
A. Er tut das aber nur, wenn ein 
bestimmtes externes Signal vor- 
handen ist. 

Bit 7: 

Auch beim Register CRB steu- 
ert dieses Bit bestimmte Mög- 
lichkeiten der Echtzeituhr. Des- 
halb haben Sie noch ein wenig 
Geduld, bis wir diese Uhr be- 
handeln. 

Wir kennen uns nun ganz gut 
aus, wie wir mit den Timern um- 
zugehen haben. Unser Wissen 
soll in einem kleinen Test er- 
probt werden. Dazu bedienen 
wir uns des %o Sekunden IRQ. 
Wir verändern diese regelmäßi- 
ge Unterbrechung derart, daß 
sie nur noch einmal in der Se- 
kunde geschieht. Welche Zah- 
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len dazu in ein 32-Bit-Register 
gepackt werden müssen, haben 
wir schon vorhin berechnet. Je- 
weils in der Reihenfolge LSPB/ 
MSB müssen wir sie einschrei- 
ben und vorher die Timer anhal- 
ten, indem die Bits O der Kontroll- 
register CRA und CRB auf 0 ge- 
setzt werden. Nach dem Ein- 
schreiben und Starten der bei- 
den Timer müssen folgende Bit- 
muster in CRA und CRB stehen: 
CRA 

Bit O0 = 1 Start Timer A 

Bit 3 = 0 Dauerlauf 

Bit 5 = 0 Systemtakt 

CRB 

BitO = 1 Start Timer B 

Bit 3 = 0 Dauerlauf 

Bt5=0 

Bit6 = 1 Timer Bzählt Unterläufe 
von Timer A. 


Bevor wir die Timer starten, 
muß auch noch das Interrupt- 
Kontrollregister verändert wer- 
den (das hatten wir unsin der 10. 
Folge genauer angesehen). Bis- 
lang erzeugt ein Unterlauf des 
Timer A eine Unterbrechung. 
Wir möchten aber, daß der Ti- 
mer B (damit wir das 32-Bit- 
Register voll ausnutzen) der Aus- 
löser ist. Dazu muß Bit0O desICR 
gelöscht und statt dessen Bit 1 
gesetzt werden. 

Im Programm »Timer-Test« (sie- 
heListing l und 2)istalldasreali- 
siert. Mit SYS 49152 gestartet, 
zeigt sich sofort ein deutlich ver- 


ring. Schon einige Kassetten- 
operationen genügen, sie völlig 
aus dem Takt zu bringen. 

Um so mehr verwundert es, 
daß zwei hervorragende Echt- 
zeituhren im Commodore 64 so 
gut wie nie benutzt werden, ja 
nicht einmal in irgendeiner Wei- 
se softwaremäßig unterstützt 
werden. Vielleicht ist das ein 
bißchen zuviel »mehr sein als 
scheinen«, was Commodore da 
betreibt, wenn man bedenkt, 
welche verborgenen Schätze da 
alle zutage gefördert werden 
können (man denke nur an die 
hochauflösende Grafik) bei ge- 
nauer Untersuchung des Com- 
puters. 

Jeder der beiden CIAs verfügt 
über solch eine Uhr, die direkt 
von der Netzfrequenz getaktet 
wird. Die Zählung der Zeit ge- 
schieht in vier Registern (Regi- 
ster $08 bis $0B), die in Bild 3 ge- 
zeigt sind. 

Vielleicht fällt Ihnen etwas auf, 
wenn Sie sich diese vier Bytes 
mal genauer ansehen: Die Spei- 
cherung geschieht in Form von 
Einer- und Zehnerstellen. Das 
kann also weder im Binärformat 
noch als ASCII-Zeichen funktio- 
nieren. Hier werden die Ziffern 
als BCD-Zahlen abgelegt. In der 
3.Folge dieser Serie wurde die- 
ses »binary coded decimal«-For- 
mat erklärt. Das ist lange her 
(64’er, Ausgabe 11/84) und soll 


langsamter Cursor. x ee u GR alb hier nochmal vorge- 
samer kannalleswer 3 Kin Werden, damit alle wissen, 


Sie höhere Werte in die Timer- 
Register schreiben. Den Nor- 
malzustand stellen Sie einfach 
durch Drücken der RUN/ 
STOP- und der RESTORE-Tasten 
her. Dabei wird ja — wie Sie aus 
der letzten Folge her wissen, 
auch ein /O-Reset ausgeführt, 
der den Ausgangszustand wie- 
derherstellt. 

Die Verlängerung des IRQ- 
Zyklus hat übrigens noch einen 
sinnvollen Nebeneffekt. Je selte- 
ner ein laufendes Programm un- 
terbrochen wird, desto schnel- 
ler wird es mit seinen Jobs fertig. 
Daskannmanimmer danntun — 
im Extremfall sogar den IRQ 
ganz ausschalten — wenn man 
die Möglichkeiten, die der Com- 
puter während des normalen 
IRQ anbietet, nur selten oder 
aber gar nicht braucht. 


Die Echtzeituhren 

Wir kennen nun fünf Uhren in 
unserem Computer: Die vier Ti- 
mer (jeweils A und B im CIAI 
und CIA2), die wir, weil wir die 
Impulszahlen in Zeiteinheiten 
umrechnen können, zur Zeit- 
messung einsetzen könnten und 
die im Basic verfügbare Uhr TI$, 
die aber — wie wir nun wissen — 
lediglich die Umsetzung des Ti- 
mer A im CIAl in ein bequemer 
handhabbares Software-Instru- 
ment ist. Zudem ist die Gangge- 
nauigkeit dieser Uhr recht ge- 


wovon die Rede ist. 

In dieser Zahlendarstellung 
wird jede Dezimalstelle einer 
Zahl gesondert in eine Binärzahl 
umgewandelt. Dann ergibt sich 
der folgende Zusammenhang: 


Binär Dezimal 
0000 
0001 
0010 
0011 
0100 
0101 
0110 
olll 
1000 
1001 
Das war's! Die anderen mögli- 
chen Binärkombinationen (also 
zum Beispiel 1010 etc.) werden 
nicht benutzt. Die Zahl 25 bei- 
spielsweise lautet im BCD- 
Format: 
0010 0101 


a .8 

Jetzt istes Ihnen sicherlich ver- 
ständlich, warum für die 
Sekunden- und Minuten- 
Zehnerstellen nicht mehr als 
drei Bitsreserviert wurden: grö- 
Ber als 6 wird die Zehnerstelle 
nicht. 

Zum Stundenregister TODHR 
ist aber noch etwas zu sagen: 
Dort ist nur ein Bit reserviert für 
die Stunden-Zehnerstelle. Die 
Uhr läuft nicht bis 24 Uhr, son- 
dern lediglich bis 12 Uhr. Zur 
Unterscheidung, ob vor- oder 


oo HN PD — oO 








nachmittags gemeint ist, dient 
das Bit 7. Dieses sogenannte 
AM/PM-Flag ist orientiert an 
der angelsächsischen Gewohn- 
heit, zum Beispiel für 16 Uhr den 
Ausdruck 4 PM zu verwenden. 
PM kommt vom lateinischen 
»post meridiem«, was übersetzt 
heißt »nach dem Mittag«, wohin- 
gegen AM steht für »ante meri- 
diem«, also »vor dem Mittag«. 
Meint man nun AM, dann muß 
diese Flagge auf 0, beiPM aber 
auf l gesetzt sein. 

Beim Stellen der Uhren sollte 
eine Reihenfolge eingehalten 
werden. Sobald nämlich in das 
Stundenregister geschrieben 
wird, hält die Zählung automa- 
tisch an. Man kann nun die ande- 
ren Werte in die Register schrei- 
ben. Den Startschuß liefert das 
Schreiben in das Register 


prg-timer-testcB88 cBSı 


programm : 


te 84 Bf 
dc a9 88 
Bd 84 
a9 1f 


ad Bf dc 2 
a9 Bf 8d 
87 dc a9 
8Sd 985 
Bd de 
Be dc 
B# de 


dc a9 82 
dc 29 d7? 
dc 29 47 
dc 897 81 Be dc 
dc 897 41 Bf de 
tf BB ft oO #f+ BD #f 


Listing 1. Programm Timer- 
Test, ein Beispiel für die An- 
wendung eines 32-Bit-Timers 


programm : obj.alarmuhr c@B8 cı8d 


11 85 a9 cO Bd 
> 85 a7 id 8d 18 83 a9 
8d 19 BIS ad Be dd 989 
8d Be dd 58 48 Ba 48 
43 a9 7 Bd Od dd ac 
dd 18 B& 4c da ci 4c 
fe 28 be f& 28 ei ## 
5 a2 B4 bd 2 fd 9d 
03 ca d@ f7 a2 la bd 
9d 19 85 ca dB #7 
8d Bd dc Bd Bd dd 
80 dc 29 88 8d Be de 
88 8d Be dd 39 BB 20 
4c 6c fe a9 48 Bd 
a9 b2 8d 12 85 78 
8d 18 83 a9 fe 8d 
a9 31 8d 14 853 a9 
15 83 58 68 24 Dd 
A4c 28 ci 28 82 b7? 
dB 48 ad Bf dd 29 
Bf dd aB BB a9 24 
cB de 82 39 24 c9 
07 #8 38 e9 12 d8 
Bd Bb dd 28 fc cO 

dd 28 fc c® 84 
65 ci 8d 88 dd a9 

Sc bc 68 58 68 

da #5 cB 88 da 

dd 97 89 Bd Bf 

Bd Bd dd a9 Ic 


82 a9 ## 85 83 
a& cd a9 48 85 
ci Ba Ba Ba Ba 
153 c1 85 25 c5 


&8 bi 22 38 e9 
c? Ba bB b& c8 
28 7d b4 aB 88 
88 29 1 c?7 12 d® 
88 28 18 BS f8 18 
12 d8 28 55 ci ad Ba 
55 cı ad 87 dd 
ad 88 dd 28 &0 
A4c ca b4 48 4a 
28 &B cı 68 29 
91 62 c8 68 29 
a9? 77 8d 14 83 39 
15 85 4c bc fe c6 
02 fa 853 A4c 51 ea a5 84 
: 85 82 ad 28 d® 45 83 8d 
: 20 d® Ac 31 ea 98 ft 90 


Listing 3. Eine Echtzeituhr. Bitte 
beachten Sie die Eingabehinwei- 
se auf Seite 54 
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Listing 2. Der Quelltext zum Timer-Set. 


PASS 2 

zeoo 9823 ; 

7898 DEIT FRRFEHRE ER EHRE RE 

’epe 023275 7% =“ 

r’ee98 BS3E + TIMER-TEST * 

aaa 92C7 ;#+ * 

z’eoao SOSFBO ’+ TIMER A UND B DES CIAIl WERDEN 50 * 

7999 8919 ?+ GESCHALTET, DASS NUR NOCH 1 MAL * 

79298 2942 :* PRO SEKUNDE DER TIMER-IRQG AUFTRITT & 

-e92 DIEB + * 

79208 8994 ;+ HEIMO PONNATH HAMBURG 19385 * 

zeo9a 283BI 7% * 

ze2» DBSES Fk 

79.2 BSE9 : . 
7898 B89EC : 

c999 83F8 .BAi #C999 

cee2 BIFE .0S 

c809 BrBl > 

coe2 Br27 +++ BENUTZTE ADRESSEN DES CIR I +++ 

c922 Bn2n ; 

c2028 BA3SA TALO .DE $DCo94 

co9e2 BAaA TAHI .DE $0C95 

c998 BeRS5A TBLO .DE $DCas 

c988 BrsA TEHI ‚DE $0C97 

ce28 8A7S ICR .DE 30C8D 

ce99 BASS CRA .DE $DCOE 

c088 8eRr937 CRB .DE $SDCor 

c999 eran } 

C999 BrCc3 7+++ EINSCHALTEN DES i SEKUNDEN IRQ +++ 

c099 BACS ; 

cooe 72 DBAES START SEI ;SPERREN ALLER IRQS 
cool  BRES ; 

cB8i AD BE DC BRAF2 LDA CRA 

c98984 23 FE 2B03 AND #%11111110 

ceBeE SD BE DC 2B1B STA CRA ;STOP TIMER A 
c883 AD eF DC 08825 LDA CRB 

C989C 29 FE 8836 AND #%1111111®8 

COBE 3D BF DC 9B4E STA CRB ;STOP TIMER B 
c811i 98851 ; 

c8ll A9 OF BBSF LDAR #15 ;NEUER STARTWERT IN 
coı3 ED 86 DC 8B8rh sSsTA TBLO ;32-BIT-REGISTER 
CB1i6 A393 88 28834 LDA #88 

c9183 sb 87 DC 0BSF sSTA TBHI 

cB!B AS AB DBAR LDA #168 

C81D SD 8% DC 9BB5 STA TALO 

ce2e AS 83 BEBF LDA #988 

c822 8D 05 DC SBBCA STA TAHI 

c925 BECD > 

c8e25 A393 IF B8BDE LDOR #788811111 

c827 SD 280 DC B8BFB : STA ICR ‚ALLE IRQ VERBOTEN 
ce2A AS 82 8cac LDA H7.18280910 

Ce2C 8D ED OC 89C27 sta ICR NUR TIMER B IRG 
cBo2aF ecan : 

cC82F AD BE DC 98034 LDA CRA 

c832 23 0? 8cC45 AND #%711819111 

c934 83D 9E DC BCE! sSTrA CRA ;‚BITS 3 UND 5 = © 
ce37 2084 ; D4ER 
C837 RD @F DC 8C6E LDA CRB 

ce2RA 23 D7? BCTF AND #%11918111 

Cc983C SD @F DC ©Ccar STA CRB ;DITO 

ca3F ecs2 ; 

CO3F AD BE DC ©CSC LDA CRA 

ce4a2 893 81 BCAD ORA H7ÄORBROBDDBI 

C9a4S SD BE DC BCC6 STA CR ZTIMER A START 
ce47? 8CC9 : 

c847 AD OF DC 8CD3 LDAR CRB 

coan os 41 arEca oRA #zaıapaam! 

cC84cC SD OF DC @eDB1 STA CRE ZTIMER E START MIT 
ca4arF 2024 : TIMER A UNTERLAUF 

cao4ar 9027 > 

CasF 53 2D3D CLI ;1IRQS FREIGEBEN 
cesa ange ; 

cesen EB 20465 RTS 

2951 280493 ; 

ca51 2DA4F .EN 
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Bild 1. Das Kontrollregister des Timer A 
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TODIOTH: von nun an tickt die 
Uhr wieder. 

Ähnlich funktioniert das Lesen 
der Uhrzeit. Sobald das Stun- 
denregister gelesen wird, führt 
das zum Änhalten der Uhr, so 
daß die restlichen Register rei- 
bungslos auslesbar sind. Wie- 
der ıst es das Zehntelsekunden- 
register, das beim Auslesen ein 
Weiterlaufen der Uhr bewirkt. 
Aber, so werden Sie bemerken, 
wenn der Auslesevorgang eine 
bestimmte Zeit beansprucht, 
führt das zu Verzögerungen? Die 
Lösung ist, daß der gesamte In- 
halt der vier Register gleichzei- 
tig mit dem Auslesen des Stun- 
denwertes in einen internen 
Speicher transferiert wird und 
dort weiterläuft. Nach dem Le- 
sen des TODI0OTH kommt der 
aktuelle Wert zurück in die Regi- 
ster und dieser wird weiterge- 
zählt. 

Nun wird es höchste Zeit, daß 
wir uns die beiden Bits im CRA 
und im CRB ansehen, die wir 
vorhin bei der Timer-Behand- 
lung links liegen ließen. Bit 7 im 
CRA kündigt der Echtzeituhr an, 
welche Netzfrequenz zu erwar- 
ten ist. Eine 1 an dieser Stelle 
steht für 50 Hz, eine 0 für 60 Hz. 
Unser Stromnetz in Deutschland 
liefert einen Wechselstrom mit 
50 Hz, weshalb wir dann dort die 
l setzen sollten. Da gibt es ein 
kleines Problem: Beim V/O-Re- 
se er durch Drücken der 

TOP- und der RESTORE- 
Tasten zusammen ausgelöst 
wird, schreibt der Computer im- 
mer den amerikanischen Wert 
für 60 Hz in dieses Bit. Dann geht 
die Uhr aber empfindlich nach. 
Manmuß also einen Weg finden, 
der erlaubt, dort in diesem Fall 
wieder eine 1 einzuschreiben. 
Das ist durch eine eigene NMI- 
Routine möglich. Sie sehen 
schon, der Weg zur Nutzung die- 
ser verlockenden Uhren ist 
ziemlich dornenreich! 

Noch interessanter ist das Bit 7 
im CRB. Das Setzen der Uhrzeit 
ist nämlich nur möglich, wenn 
dieses Bit den Inhalt 0 hat. Was 
geschieht, wenn dort eine | 
steht? Dann bestirnmt man nicht 
die aktuelle Uhrzeit, sondern 
man stellt einen Wecker (das ist 
die Alarmzeit). Das geschieht 
nach dem Setzen dieses Bits ge- 
nauso wie vorhin das Einschrei- 
ben der Uhrzeit (also erstaunli- 
cherweise auch in genau diesel- 
ben Register!). Im Unterschied 
dazu ist allerdings ein Lesen der 
Alarmzeit nicht möglich — das 
ergibt immer die aktuelle Uhr- 
zeit. Man muß für diesen Fall die 
Weckzeit irgendwo abspei- 
chern und bei Bedarf dann von 
dort lesen. 

Weil man ja meistens nach 
dem Erreichen der Alarmzeit ir- 
gendeine Reaktion erwartet, ist 
im ICR (also dem Unterbre- 
chungskontrollregister 13) jedes 
CIA noch ein Bit reserviert — 


das Bit 2 —, mit dessen Hilfe der 
Alarm per IRO oder NMI wie 
auch immer geartet losbrechen 
kann. Der Phantasie sind hier 
nur wenige Grenzen gesetzt. 
Wie man mit diesem ICR um- 
geht, ist Ihnen noch aus der Fol- 
ge 10 geläufig. 

Damit sind wir durch die Ei- 
genheiten der CIAs durch. Man 
braucht tatsächlich keine Scheu 
zuhaben, diese Echtzeituhren zu 
nutzen. Lediglich die Uhr im 
CIAl wird manchmal verwen- 
det, einen bestimmten Wert für 
die Zufallszahlenerzeugung zu 
generieren. Äber das sollte ei- 
ner eigenen Uhren-Routine 
nicht in die Quere kommen. 
Solch eine Echtzeituhr findenSie 
im beiliegenden Listing 3 und 4. 

Durch SYS49152 aktivieren Sie 
die Uhr, die Sie mit SYS49261 
auch wieder abschalten kön- 
nen. Durch ein USR-Kommando 
A=USR (String) stellen Sie die 
Startzeit ein. String kann dabei 
eine Stringvariable sein oder 
auch direkt ein String der Form 
»HHMMSSTK« (also Stunden, Mi- 
nuten, Sekunden, Zehntelsekun- 
den). In A steht eine 0, wenn kein 
Fehler, aber eine -l, wenn ein 
Fehler aufgetreten ist. Das Le- 
sen der Uhr erfolgt über ein 
zweites USR-Kommando: PRIN- 
TUSR(Zahl). Dabei kann Zahl ei- 
ne beliebige Zahl oder Variable 
sein. Eine Alarmzeit ist ebenfalls 
einstellbar durch ein USR- 
Kommando, in dem vor der Zeit- 
eingabe noch ein Buchstabe 
steht. Beispielsweise stellt 
A=USR$A1200000«) einen 
Wecker auf 12 Uhr. Der Alarmim 
Programm läßt den Bildschirm- 
rahmen blinken. Abstellen kann 
man das durch Auslösen eines 
RESTORE-NMI (also RUN/ 
STOP und RESTORE). Sollten Sie 
vor dem eingestellten Alarm 
mal solch einen NMI auslösen, 
dann muß die Alarmzeit neu ge- 
stellt werden. Als Basis für die- 
ses Programm diente ein Listing 
aus dem schon oft erwähnten 
Buch von Babel/Krause/Dripke 
»Das Interface Age Systemhand- 
buch zum Commodore 64«. 

Die Unterbrechungs-Pro- 
grammierung ist damit abge- 
schlossen — ebenso diese Serie, 
dıe als Einführung in die 
Assembler-Alchimie nun alle 
Geheimnisse der Kunst aufge- 
deckt hat. In den letzten Folgen 
sind wir schon in die Meistergra- 
de der Zunft aufgestiegen. Viel- 
leicht ging es manchem etwas zu 
schnell? Dann wird Ihnen der 
anschließende Kurs »Von Basic 
zu Ässembler« eine Hilfe sein, 
der behutsam und mit vielen an 
Basic angelehnten Beispielen 
die nötige Programmierpraxis 
vermitteln wird. So wie die Seg- 
ler sich oft »Mast- und Schot- 
bruch« wünschen, verabschie- 
deıchmich, indem ich Ihnen vie- 
le grandiose Abstürze wünsche. 

(Heimo Ponnath/gk) 
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Pass 2 c828 98 1412 TYA 
7908 0823 : ca21 48 1418 PHA 
7889 DSIC Frauke HE dk co22 141B 7 
ao0 8875 :+ cB22 AS ?F 1439 LDA #$7F :SPERREN ALLER NMI 
ze88 BSSE +* ECHTZEITUHR MIT ALARMFUNKTION * C824 8D ED DD 1444 STA ICR2 
7899 BSC7 ;%# * c927 1447 
7909 BSF98 :« LSEUFT MIT DEM NMI-CIA * c827 AC 8D DD 1462 LDY ICR2 3PRUEFEN 08 NMI 
7008 @319 :*+ IN VERBINDUNG MIT DEM IRQ FUER * ce2A 19 86 1481 BPL RESTNMI 3VOM CIAZ2 KOMMT. 
re08 0342 :* DEN ALARM * ca2C 14Aa : WENN NE IN=SPRUNG 
79288 BI6B 7% * cB2cC 4C 6r Cı 14C1 JMP ALARM :WENN JA, ALARM 
7998 8394 :# HEIMO PONNATH HAMBURG 1335 * ce2F ac 72 FE 14E1 CIANMI JMP_ NMIRS232 REST DER 
72908 83BD ?’* * ce32 1593 : NORMALEN NMI-ROUTINE 
7098 BSES ’* CTEILWEISE WURDE EIN PROGRAMM AUS 4 c932 1598 ; 
7ze08 BÄOF ;* DEM INTERFACE AGE SYSTEMHANDBUCH + ca22 1534 ik++++ EIGENE RESTORE-NMI-ROUTINE kr 
7888 OR38 +* ZUM COMMODORE 64 ,„ SEITE 114 * co32 1537 : 
908 BASI 34 ALS BASIS VERWENDET > ” ca32 ISSF 35 DIE MODULPRUEFUNG WIRD AUSGELASSEN 
7’e88 DRBA 5% * ca832 1562 ; 
7za08 DEIEBEEFFFEFTEIEITTIETETEEESEELETETTTE IE ETET Ce32 28 BC F&6 1587 RESTNMI JSR TASTFLAG ;TEIL DER NMI- 
eaB BRBE > Cc035 28 Ei FF 15#AS JSR STOP ROUTINE ZUR STOP- 
cooo sAc2 u un C838 D9 F5 15C2 BNE CIANMI ; TASTEN-ABFRAGE 
ceo® BAcB „os co3A ISCS : 
case BACcB : c83A n2 94 15E3 LDX #394 IRQ UND BRK VERT. 
co9® DAFA :kreaKkrarr ZERDPAGE-LABELS Kranker CO3C BD 2F FD 1696 UMLADI LDA VECTAB,X »RESTAUR IEREN 
cea» BAF? ; CO3F SD 13 83 1613 STA FREI,X 
C988 BBI8 VERZ .DE #82 AKTUELLE VERZOEG. cea2 cn 1613 DEX 
ceo® 0833 FARB .DE +83 WERT FUER RAHMEN c843 DB F7 1626 ENE UMLADI 
cea® 8857 : EOR-OPERATION j c945 "1629 ; 
co99 aB73 VORW ‚DE 94 ZVERZOEGERUNGSWERT c845 1651 3 DER NMI-VEKTOR WIRD UEBERSFPRUNGEN 
c988 B8B3B VALTYP .DE £8D Z1NHALT:FF=STR 9=H ce45 1654 ; 
cooo BBSE ; ca4s a2 ıa 1671 LDX ##1A »RESTAURIEREN DER 
co2» BBAD INDEX .DE $22 C847 BD 35 FD 1693 UMLAD2 LDA VECTAB7,K ZRESTLICHEN 
coo» BECS INDEX3 ‚DE #24 }POINTER Ca4A SD 19 83 16AC STA NMINVH,.X 3VEKTOREN 
c988 BBDE INDEX4 ‚DE 325 ceaD CA 16B2 DEX 
ce98 BBFS FACI .DE 362 #1.MANTISSENBYTE CB4E DB F7 16BF BNE UMLADZ 
c888 OBFS ; cosa i6C2 ; 
ceea BC2! rk LABELS PAGES 3 Kramacaickack c959 18E3 ; ZUNAECHST NORMALER I/O-RESET 
cooo BC24 ; ’ cosa _ IBES : 
caeo BC44 USRADDL .DE 38311 3USR-PO INTER ce5B AS 7F ISFD LDA #$7F = 8111 11l 
C988 28C57 USRADDH .DE 9312 c8s2 SD en Dec ı718 sTAa ICRI :SPERREN ALLER IRQ 
ce» ecsa > cess SD BD DD 17393 STA ICR2 :SPERREN ALLER NMI 
c929 BCER FREI .DE 9313 ceS53 SD 09 DC 1753 sTAa Cini ;DATENREGISTER 
coeB BCED ; cosB 1770 ; PORT A AUF NORMALWERT 
c898 BOCSA IRQVL .DE $9314 7 IRQ-VEKTOR ceSB AS 08 1791 LDR #303 ;=BBAB 1888 
cooa BCSB IRAVH ‚DE $9315 C8SD Sn BE DC 17AD sTAa CRAI :TIMER A IM CIAl 
co98 ECSE cos®a 1780 : 
c898 OCBC NMINYL ‚DE $9318 3NMI-VEKTOR cos® 1702 5; ERSATZ FUER BELEGUNG DES CRA2 
cooea ECCE NMINYH .DE $9319 cos® 1705 ; 
cea8 ecDi > Cas8 R3 38 17EC LDA #583 ;=1908 1800 
ceaD BEFA !ukkkkkkkkk LABELS INTERPRETER KkkaKKk% cos62 @D OE DD 1883 sTA CRn2 TIMER Aa IM CiA2: 
ceo8 BCFD : cass 1823 : BIT 8 AUF STOP 
co9» 0D23 ILLQUERR .DE $B248 z ILLEGAL QUANTITY Co85 1S4F > BIT 3 AUF EINZELLAUF 
caa99 2D4B ERROR=NORMALWERT USR-VEKTOR C865 1875 73 BIT 5 SYSTEMTAKT EIN 
c800 BD4E ; cosS 18930 ; BIT 7 ECHTZEITUHR=50H2 
ceo8 8078 STRINIS .DE $847D +SPE ICHERFLATZ cass 18AB ; 
co»a 0093 ; PRUEFEN,STRINGPOINTER SETZEN cass 18C98 : REST DES NORMALEN 17O-RESET 
ce88 BDBF STRLITS7 .DE $BaCca REST DER STRING- coss 1803 ; 
ceoa enne : LESE -ROUTINE cass 1806 : 
coo» BDF7 LENI .DE 38782 ?STRINGLAENGE CassS AS 08 18DE LDA #398 i= 9000 1900 
ce»®8 BEII : IN Y-REGISTER COos7 20 B6 FD _ ISEE JSR IORESETII 
co28 BE32 ACTOFC .DE $BC3C AKKU NACH FAc cBER I8FI > 
coo® E35 ; casa 1919 # REST DER NORMALEN RESTORE -NMI-ROUT. 
co808 BESE ;k#rKkHK#4# LABELS VIC-II-CHIP aukkkakk ga 181C : 
co9® BES1 : SsaER On INGE! ac 8C FE 193A JMP NMIXCTI6 EINSPRUNG BEI 
cCo88 BETE RAND .DE 0929 ZRAHMENFARBE casn 195F ; SCREEN EDITOR RESET 
coo0 BES1 : casD 1362 : 
ce98 BERR 3er LABELS CIA-BAUSTEINE Khkkrk casD 198B :k##%+ ABSCHALTEN DER TIME OF DAY UHR #* 
cea9» BERD ; cos 198E : 
Cc888 BECA CIA1 .DE sOCBB »START CIA-1 COSD 19AD : DURCH SYS -KOMMANDO 
caa8 BEEC ICRI .DE $0C8D x IRQ-KONTROLLREG. cosn 1980 ; 
cu OFGE CRAI ‚DE $DC8E ?TIMER-A KONTRREG COSD Ag 43 1301 Aus LDA #L, ILLQUERR FUSR-VEKTOR 
c808 Brill; COSF SD 11 93 ISEF STA USRADDL AUF NORMALWERT 
C908 OF34 TODI19TH2 .DE $DD88 #1/10 SEKUNDEN ca’2 As B2 1AB1 nah NLLMERR 
cos® BF51 TODSEC2 .DE $DD83 SEKUNDEN ca7a an I2 03 IHAOF STA USRADDN 
ca9B BFED TODMIN2 .DE $DDBA MINUTEN c877 IAl2 3 
casa BFSF TODHR .DE $DDOB STUNDEN + AM/PM ENTER 1Alo su 
ER BERN ICHE .DE #0080 BISAR WERE TROLLIGEN: ce7s A9 47 1A3S LDA #347 }RESTAURIEREN DES 
ni IE ERRE TE ARE ETIEER N NERTIRREN co’a 80 18 083 1nar STA NMINVL ZNMI-VEKTORS 
co9» BOFFS CRB2 .DE $DDOF ; TIMER-B KONTRREG uns na. be ia‘ a er 
ce8e OFFB ; CO7’F 80 19 03 1467 STA NMINYH 
c808 OFFB ; cos2 1ASA > 
C888 19249 sxkxkkkk&%k LABELS OBERES ROM ++4+#3 #2 ruK cas2 n9 31 1A87 LDA #L ‚NORM ;RESTAUR IEREN 
c988 1027 ; CO84 3D 14 03 IAna STA IRQVL ;DES IR@-VEKTORS 
cas» 19845 NORM .DE sER31 NORMALER IRQ Ca A As ne 
c8089 1848 ; caoss =D 15 93 IABE STA IRQVH 
C888 1086B TASTFLAG .DE $F6BC TEIL DER NMI- az a; 
cos» 1a8E > ROUTINE (KEIN MODUL > Zr ou u nn 
ce8® 1BAD VECTAB .DE $FD2r TABELLE DER Auen Ba Fe Sie 
ce98 10C8 ; ROM-VEKTOREN Ee DR; 
c888 18E9 VECTAB? ‚DE #F035 u case IAFS +++ DURCH USR AUFRUFBARE ROUTINE #x4%* 
coo® 110€ 3 VEKTORS IN DER TABELLE En un 
c880 1132 IORESETIG .DE $FDB6 ; 1I/0O-RESET:BEI COaE 24.00 Sid der ee ee 
c888 1157 3 SETZEN DES CRA IRQ-CIA c930 19844 5 VARIABLEN LIEGT VOR ? 
caao 1178 NMIXCTIS .DE $FESC ZNMI-ROUTINE AB a a IEaE a Se N 
casa 1190 : SCREEN-EDITOR-RESET Bas u; BEE ETETEENORE 
c888 11C1 NMIRS2SE ‚DE SFE7Z 3NMI-ROUTINE AB ce92 4C 28 cı 1B9IF JMP ZAHLVAR SONST SPRUNG 
c999 11DE > RS232 -HANDL ING case DE; 
— LIFE TEEN ‚DE SWFERG 7 DERREEN. ENERN cess IECB !ttt+r+# STELLEN DER ECHTZEITUHR zurzar% 
ceo8 1215 3 ROUTINE c995 IBEB ; DURCH USR< "HHMMSST" ) 
c80® 1237 STOP .DE $FFEI ?KERNAL STOP SPRG Fuss ee 
ae nn , NE LEITEN? ce9s 28 932 B? ICOF STRING JSR LENI # Y=STRINGLAENGE 
C000 125A : caas co or ıc2C CPY #397 +STRING=7ZEICHEN? 
c888 1283 xx #444 AKTIVIEREN ss ksksKKa rs De Da. 48 ee f BNE srzee SR »NEIN DANN ALARM 
c808 1886 7 cesc IC66 ; 
coB® AS SE 12A2 INIT LDA #L,USR #USR-VEKTOR casc AD or DD 1ces LDA CRB2 :TIMER B IN CIR2 
cee2 8D 11 83 1287 STA USRADDL REN co9F 23 7F ICA3 AND #$7F !B1T7 LOESCHEN: 
c.> 03 1204 ch conI SD OF DD ICBF STA CRB2 ;NORMALE UHRZEIT 
cee7 8D 12 83 1202 STA USRADDH cana IcE4 : IN ECHTZEITUHR CIA2 
Een s ıD er F LDA #L,NMI NMI-VEKTOR MIT BER ICE? 3 
cooR A F2 r ZNMI- 
c88C SD 18 83 138D STA NMINVYL ZSTARTADRESSE un ann : AUSLESEN DES ZEIT-STRINGS 
ceeF AS ca 1327° LDA #H,NMI DER EIGENEN cona ne 00 ın22 LDY #908 +ZAEHLER AUF ® 
en 02:19: 83 ee ‚ INN a ne CARS Aa 24 1D47 STELLEN LDA #824 ;BCD 24 STD-VERGL. 
c814 AD 8E DD 1365 LDA CRA2 +BIT7? CRA SETZEN: nn eu. FE 66 ae ; JSR as ER RE UND 
7% 88 
car 00 „, are om 100 "zi0oe sone. ee m an meueron 
cBic 139A > S S 
ceic as 1308 sans Zach na 24 nee LDA #324 3SONST = 24 
’ 
ceıD 13CC rx#4442444% EIGENE NMI-ROUTINE za2xs0r% ri = 2 = STDie ni nr 
ceıD 13CF : ” i 
C81D 48 I3EF NMI PHA FANFANG NORMALE NMI-R. 
co1E 8A 1486 TÄA REGISTER RETTEN 
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co83 IE4D 3 NEIN, DANN SPRUNG cıen 22C7? ; ERST NACH LESEN DER 
c9B3 F& 1ES7 SED SONST DAVON BCD 12 c1ı2A 2asEF ı 17/18-SEK ZURUECKGEHOLT 
coB4 38 1E7B SEC >SUBTRAHIEREN cı2A 2314 3 MIT AKTUELLEN WERT. 
Cc885 E3 ı2 1E88 SBC #s12 UND cı2aA 29317 3 
ceB7 83 1ES1 CLD cı2a oe 2335 PHP +STATUS ZWISCHENSPE ICH. 
coee 93 28 1EA3 ORA #388 3BIT? SETZEN c128 2338 3 
coBA IEAC cı2B 23 iF 294F AND #s1F 3=8881 1111 
COBRA SD BB DD IECF STDSET STA TODHR 3BCD-STUNDEN UND cı20 2973 3 LOESCHEN DER AM PM-FLAG 
coBD IEF? 3 AM/PM-FLAG IN TOD-CIA2 cı20 c3 ı2 2996 CMP #s12 ı=80881 8818 =-BCDI12 
caBD IEFA 3 cı2Fr 00 v2 29380 BNE NO12 2 <>DANN SPRUNG 
COBD 28 FC CB ıFıs JSR ASCBCDI 3ZEICHENTEST U. cı21 A9 08 2ScE LDA #388 +SONST STATTDESSEN 
c9co IFaF 3 UMWANDELN IN BCD-ZAHL c123 2301 : 
Coco SD BA DD IFS5nA STA TODMIN2 ERGEBNIS IN c133 28 23Fe NoOI2 PLP STATUS ZURUECKHOLEN 
coc2 IFTF 3 TOD -MINUTENREGISTER c134 19 05 2roR BPL AM 3FALLS KEINE AM/ 
c9c3 IFs2 ; cı26 ZRaF 3 PM-FLAG GESETZT WAR 
CeC3 28 FC CB IiF9F JSR ASCBCDI DASSELBE FUER c136 2A32 3 
COC6 SD 83 DD IFBB STA TODSECZ DIE SEKUNDEN cı1236 F8 zAac SED 3SONST ADDIEREN VON 
coc3 IFBE 5 c137 ı9 zas2 CLC 3B8CD 12 WEIL PM 
C8C3 28 66 cı IFDA JSR TEST :PRUEFEN,OB 1/18 cı28 693 ı2 2ASD ADC #812 
cocc IFFS 3 SEKUNDEN=ZAHL c12A D3 272 CLD 
CaCcc 8D 88 DD 2817 STA TODIBOTH2 ZUND EINTRAGEN cı3P 2A7E 3 
cocr 2933 ; INS TOD-REGISTER c123B 28 SS cı 2Ass AM JSR BCDASC :UP ZUR UMRECHNG 
cocr 2850 + DIE UHR BEGINNT JETZT ZU LAUFEN C13E 2RBC ; VOM BCD IN ASCII UND 
cocr 20868 ; ci3E 2AES } ABLEGEN IM STRING. HIER 
COCF A93 88 2970 LDA #388 KENNUNG FUER OK. c13E 2892 ; STUNDENWERT 
c0D1 4C 3C BC 2ZBR2 AKKUFAC JMP ACTOFC AKKU ZUR UEBER- cC13E 2805 ; 
c004 2009 ; GABE INS BASIC IN FAC CI3E AD oA DD 2B22 LDA TODMINE SDASSELBE FUER 
cona 20CC ; c141 29 55 cı 2B3C JSR BCDASC >MINUTENWERT 
c004 2BOFS jstraHtrsrt# FEHLER AUFGETRETEN #444 84%% c144 2B3F ; 
c004 zors 3 -144 AD 89 DD 2B5C LDA TODSEc2 3JUND SEKUNDEN- 
c004 69 2116 FEHLER PLA 3 JSR-ADRESSEN VOM C147 28 SS Cı 2B6EF JSR BCDASC WERT 
coDS 53 zı2A PLA :STAPEL HOLEN rı4A 2B72 3 
cops 2120 ; cCıan AD 92 DD 2Bsc LDA TODIBTH2 sUND 1/18- 
coDs 68 2138 ERROR PLA c140 20 69 cı zBA® JSR BCDASC I 3 SEKUNDENWERT 
c907 63 213E PLA c:ı50 2BRAB } 
c908 2141 3 CıSo 68 2BC7? PLA 3USR-STR ING -ARGUMENT- 
cepse n3 FF 2164 ERRORI LDA #sFF 3FEHLERKENNUNG IN c151 683 . BBES PLA »RUECKSPRUNG VORBEREIT. 
cepA Da F5 2198 BNE AKKUFAC zAKKU UND FAc c152 2BES ; 
cepc 2183 : c1i52 4C CA BA 2C86E JMP STRLITS? BRINGT STRING 
cBDc Z1AC FENDE DIESES TEILS D. UNBEDINGTEN SPRG. cı1ss ‘20293 ı DESCRIPTOR IN DIE 
c2DC 2105 3 ----------- anne c15s 2c32 ; DESCRIPTORTABELLE ($19- 
Cc8DC 21D8 ; c 155 ec73 3 $21),SETZT POINTER IN 
CBDc 2201 7##*++#* ALARMZEIT EINLESEN ##raHhrktarihe c135 eca2 7 FACCHIER $64/65) DARAUF 
cooc 2294 ; c155 2cc8 : SETZT STRING-FLAGGE, 
C80C z22Rn 3 AUFRUF DURCH 2.B. USR<C "AHHMMSST" > C 155 SCES 7 ERHOEHT LETZTEN 
coDC 2220 ; c153 2D19 3 DESCRIPTOR-INDEX UM 3 
CO0DC CB 88 224B ALSET CPY #388 » 8 ZEICHEN ? c155 2D33 5 ROUTINE ENDET MIT RTS. 
CODE DB F8 2265 BNE ERRORI NE IN=FEHLER c1SS 2038 } 
COE®O 2268 5 c155 2064 s##%#%* ENDE DES LESENS DER UHR k###+4#4#+# 
COE®B AD BF DD 2273 LDA CRB2 c155 2087 } 
CBE3 89 88 228E ORA #7.18900800 ZALARMBIT c1ss 2DI38 I +---------- -- --- - mn 
CBES 8D OF DD zanı STA CRB2 SETZEN 2155 2033 ; 
CBES 2on4 C 155 20BC :+ UNTERPROGRAMM Z. UMRECHNUNG BCD IN * 
CBES A3 84 22C0 LDA #%10008190 ZALARM-NMI c155 2DES ;# ASCII U.EINTRAGEN IN STRINGSPEICHER* 
COER SD 9D DD 2208 sta ICR2 :ZULASSEN c15S5 2DES ; 
COED 2208 ; cC155 48 2EOB BCDAScC PHA sAUF STAPEL ZW.SPEICH. 
COED AS 3C 22F3 LDA #s3C 3VERZOEGERUNGS - C156 2EBE ; 
CBEF 85 84 2380 STA VORW ;WERT VORGEBEN c1S58 aA 2ZE2PA LSR :MSB INS LSB SCHIEBEN 
cerı 85 v2 2318 sta VERZ cıs7 aa 2E31 LSR 
COF3 A3 FF 2336 LDA #5FF >EOR-WERT VORGEBEN cisa 4A 2E38 LSR 
COFS 85 83 2341 STA FARB A 2E3F LSR 
cer? AB 01 235F LDY 43081 »BUCHSTABE Bar on N 2E42 3 
CorF3 4C AS CO 236D JMP STELLEN cısa 28 68 Ci 2ESE JSR BCDASci zIN ASCII UM- 
Ei 2379 ; C15D 2E85 ı RECHNEN UND SPEICHERN 
2373 3 C15D 2ESS 7 
Cart ZIIC Fra a CIiS5D 68 ZERAS PLA 2ZURUECKHOLEN DER BCD- 
cafc 23C5 /UNTERPROGRAFM ZUR UMWANDLUNG DER ASCI1 cise 29 oF 2EC3 AND HS$OF :ZAHL ‚„LOESCHEN DES 
CBFCc 23EC ’CODES IN BCD-ZAHLEN UND PRUEFUNG DER c168 2EDS : MSB 
cart e3FF 7EINGABE-ZEICHEN, C168 2BEDB 7 
COrc 2402 3 C160 989 30 2F®® BCDAsScCI ORA #530 ;DAZUODERN VON #38 
COFC AS 68 2427 ASCBCDI LDA #360 :BCD 88 ALS GRENZE cıs2 2er28 : ERZEUGT (WEIL NUR ZAHL 
COFE Baar 3; FUER MIN UND SEK WERTE cı62 2FAF 3 ZWISCHEN ® UND 9> DEN 
Sid — ie a ; ku c162 2F7B 3 ASCII-WERT (339 BIS 39) 
Ss EXS3 cı162 eFTB 3 
C1i88 28 13 Ci 2482 JSR TESTI »PRUEFEN OB ZAHL cı62 Sı 62 2FS3 sTA <FAC1),Y EINTRAGEN IN 
cı103 oA 2431 ASL AUS LSB INS I1SB cıs4 2FB? } STRINGTABELLE 
cı9a on 24AB ASL 3SCHIEBEN cıs4 2FBA 3 
c185 on 24B2 ASL cısa cs 2aFCC INY »ZAEHLER +1 
cC186 8A 2489 ASL c165 2FCF 3} 
c1907 85 25 2407 STA 1NDEX4 ‚UND ZW.SPEICHER CiI6S 68 2FDS RTS 
CIEm zen® c166 2F08 ; 
Ei is 3 ei ei ie nn c166 3001 s####*4* REST DES UP ASCII-BCD ###43%4%4% 
C166 3904 7} 
Cıac 85 25 eSs2c DORA INDEX4 3MSB AUS ZWSP. Ciss 28 13 Ci 3828 TEST JSR TESTI FPRUEFT AUF 
CIBE 2552 ; UND LSB ZUSAMMENOREN c169 23942 ASCII-ZAHL (9-9) 
om c5 24 256F CMP INDEX3 3UNTER GRENZW.? C169 68 3948 RTS 
119 Bo c4 258D BCS ERROR 3NE IN=FEHLERAUSG. cıeA 3848 7 
een au na , En ci6A 3874 )*#+4## NMI-REAKTION AUF ALARM ###2#44#+% 
C16A 3977 ; + 
cı113 2539 7 cisa AS 77 3897 ALARM LDA #L,ALIRG }NEUER IRQ- 
. in u. PRUEFUNG OB ASCII-ZAHL VORLIEGT *#x CIiSC 8D 14 83 39AB STA IRQVL >$VEKTOR 
eigpie Bı 22 en RR LDA $ ENT. ZEICHEN EIN- ae Po .- 92 jr SIR ee 
c174 3809 3 
cC11S5 38 268D SEC C174 4C EC FE 3865 JMP NMIEND REST DER NOR- 
SE en: em 3 un ng 
‚,JA= c177 3108 7 
cı1a 2649 3 cı77 3134 I#+4%24%* DIE NEUE IR@-ROUTINE ###4#2824% 
ciiA C9 8A 2659 cmMPOH#0OA >= ASCII : ? C177 3151 3 RAHMENBL INKEN 
nn Be BE pie ı BCS FEHLER + JA=FEHLER 6177 3154 ; 
2674 3 c177 3157 3 
CIIE c8 2698 INY >SCHLEIFENZAEHLER + I C177 ce e2 3175 ALIRO DEC VERZ ?ZEITSCHLEIFE 
Eins 68 —_ RTS cı73 FO 83 3191 BEQ BLINK BLINKEN WENN 8 
’ c178 3194 3 
Ba 25C2 ;#x#* ENDE PROGRAMMTEIL UHR STELLEN #%#%* c17B 4Cc 31 ER 3182 JMP NORM 3SONST NORMALE IRQ 
cı2 26C5 ; C17E 3185 } 
c128 RBENE I; u rn nn ne nenn er nn a na a are CI7E AS 94 3105 BLINK LDA VORW IZAEHLER RUECK- 
2120 e6Fl 3 C180 85 92 31E8 STA VERZ SETZEN 
c120 271m Faaarkaakkk UHR LESEN srrKhkaachrr re" cıs82 siıEB 7 
c120 z710 } Ci82 AD 28 Da 3283 LDA RAND }RAHMENFARBE 
I Eee GESCHIEHT DURCH USR(ZAHL > ci8s 45 98 3218 EOR FARB $ INVERTIEREN 
. a. ” * ae ZAHLVAR LDA #397 ISTRINGLAENGE = n. ESENR in . A 
77F JSR STRINIS ; , 
cı2s 27A7 3 PLATZ FUER BEER ar 2 a ai =. ; EUREN 3ZUM NORMAL- IRQ 
cı2S 27CF 3 LEGT START NACH 562/63 c1eD 3240 EN 
cı25 27FE 3 SOWIE LAENGE NACH 561 " 
cı2S 2314 : <FAC #61 -56) 
cı2s 2817 3 
cı2s au oe 2831 LDY #300 FZAEHLER AUF O8 
c127 AD ODE DD 2284F LDA TODHR ISTUNDE AUSLESEN, 
cı2a 2878 ; DABEI WIRD GESAMTE ZEIT DT) s 
cıaR zanı ; ZWISCHENGESPEICHERT UND Listing 4. Der Quelltext zur Echtzeituhr (Schluß) 
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Hallo 
Hardware- 
Entwickler! 


Haben Sie eine nützliche Er- 
weiterung für den C 64 oder 
C 128 selbst entwickelt? Ob 
EPROM-Brenner, Stereo-Inter- 
face, Video-Signalverstärker, 
Floppy-Speeder oder Centro- 
nics-Interface — senden Sie 
uns Ihre Bauanleitung. Die 
B4’er ist auch in dieser Bezie- 
hung ein Magazin für Compu- 
ter-Fans, bei der aktive Mitar- 
beit großgeschrieben wird! Ih- 
re Entwicklung in der 64’er — 
reizt Sie der Gedanke nicht? 

Wie bei den Listings benöti- 
gen wir auch für Jede Hard- 
ware-Entwicklung ein paar 
Unterlagen: 

— Ausführliche Beschrei- 
bung der Entwicklung 
Ein fertig aufgebautes Pro- 
beexemplar 
Technische Beschreibung, 
aus der das Funktionsprin- 
zip der Schaltung hervor- 
geht 
Auf- und Einbauanleitung 
Ein reprofähiges Platinen- 
Layout, möglichst ım Maß- 
stab 1:1 und 2:1 
Illustrieren Sie die Be- 
schreibungen, wo nötig, 
durch Zeichnungen und 
Grafiken 
Alle Entwicklungen müs- 
sen von Ihnen selbst stam- 
men, die Verwendung von 
Schaltungen (auch teilwei- 
se) aus Büchern und ande- 
ren Publikationen ist nicht 
möglich. Auch wenn Sie 
selbst nichts entwickelt ha- 
ben, sind wir an Ihrer Mei- 
nung interessiert. Schrei- 
ben Sie uns, welche Erwei- 
terung Ihrer Meinung nach 
am wichtigsten ist. 

Wenn Sıe sich an der Gestal- 
tung unseres Magazins mit 
Hardware-Bauanleitungen be- 
telligen wollen, schreiben Sie 
einfach an: 

Markt & Technik 

Verlag Aktiengesellschaft 
Redaktion 64er 

Herrn Arnd Wängler 
Hans-Pinsel-Str. 2 

8013 Haar bei München 
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Comal 80 — die universelle 


Programmiersprache 


Sie sich als C 64-Programmie- 

rer schon über die Unzuläng- 
lichkeiten des eingebauten Basic 2.0 
geärgert und sich ein komfortable- 
res Basıc gewünscht? Diese Zeiten 
sind jetzt endgültig vorbei. Mit Co- 
mal 80 nutzen Sıe die enormen Hard- 
ware-Fähigkeiten des C 64 voll aus, 
und zwar ohne Maschinensprache, 
ohne PEEKs und POKEs, dafür 
schneller, komfortabler und über- 
sichtlicher, als Sie es sich je vorge- 
stellt haben. Comal vereinigt die 
leichte Erlernbarkeit von Basic mit 
der übersichtlichen Strukturierung 
von Pascal und den grafischen Fä- 
higkeiten von Logo. Das Ergebnis ist 
eine neue Sprache, die alles, was es 
bisher an Programmiersprachen für 
den C© 64 gibt, in den Schatten stellt. 


64 KByte im ROM-Modul 


Comal 80 ıst für den C 64 nur als 
Steckmodul erhältlich. Dieses Mo- 
Aul enthält 64 KByte ROM, dieinvier 
Speicherbänken zu je 16 KByte orga- 
nisiert sind. Die eingebaute Bank- 
Auswahl-Logik schaltet ganz nach 
Bedarf zwischen den vier Comal- 
ROM-Bänken, dem Basic-ROM und 
dem darunterliegenden RAM hin 
und her. Bild 1 zeigt die Speicherauf- 
teilung des C 64 unter Comal 80. Der 
gesamte adressierbare Speicher- 
bereich (RAM und ROM) beträgt 152 
KByte ()), für Comal-Programme 
stehen davon 30 KByte zur Verfü- 
gung. Das entspricht dem auch bei 
Basic-Erweiterungen wie Simons 
Basic oder Exbasic Level II vorhan- 
denen Programm-Speicherplatz. 
Dazu kommen nochmals 16 KByte 
RAM, die für selbstgeschriebene 
Spracherweiterung (User Packa- 
ges) verfügbar sind. Wem dieser 
Speicherplatz noch nicht ausreicht, 
kann sich Comal-Erweiterungen mit 
einem Umfang von bis zu 32 KByte 
entweder in Assembler oder in Co- 
mal selbst schreiben und in ein 
EPROM brennen — das Comal-Mo- 
dul enthält zu diesem Zweck einen 
freien EPROM-Steckplatz. 

Der bildschirmorientierte Editor 
des C 64 wurde in vielen Punkten 
noch weiter verbessert. Zahlreiche 


" and aufs Herz: Wie oft haben 
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Vergessen Sie alles, was 
Sie über die Program- 
mierung Ihres C 64 wis- 
sen! Denn mit Comal 80 
verwandelt sich der C 64 
in einen neuen Computer. 


Control-Funktionen wie »lösche ab 
Cursor-Position bis Zeilenende« 
oder »Cursor auf vorhergehendes 
Wort setzen« erleichtern die Pro- 
grammeingabe. Spezielle Comal- 
Kommandos wie DEL (Zeilenbe- 
reich löschen), AUTO (automatische 
Zeilennummern-Vorgabe) oder RE- 
NUM (Neunumerierung eines 
Comal-Programms) bringen großen 
Komfort bei der Programm-Eingabe 
und -Anderung. Die Funktionstasten 
sind mit SiANVollen'Rofizändos be- 
legt, können aber vom Anwender 
beliebig umdefiniert werden. 


Komfortabler Editor 


Comal ist genaugenommen we- 
der ein Interpreter noch ein Compi- 
ler, sondern eine Zwischenstufe. 
Comal-Programme werden vor der 
Ausführung (die interpretativ er- 
folgt) in zwei Stufen »vor-übersetzt«. 
Die erste Stufe ist die Umsetzung 
der Comal-Schlüsselworte in soge- 
nannte »Iloken«, also meist aus einem 
Byte bestehende Befehls-Abkürzun- 
gen. Eine solche Vorübersetzung 
findet auch beim normalen Basic 2.0 
statt. Comal geht aber noch weiter: 
Wird ein Comal-Programm gestar- 
tet, dann führt Comal vor dem ei- 
gentlichen Programmlauf eine se- 
mantısche Analyse durch, in deren 
Verlauf die effektiven Adressen von 
Variablen, Prozeduren und Funktio- 
nen ermittelt und gespeichert wer- 
den. Während des Programmlaufs 
braucht Comal daher nicht lange in 
Variablentabellen zu suchen, son- 
dern findet die gesuchte Adresse 
praktisch unmittelbar vor. Dadurch 
werden Ausführungsgeschwindig- 
keiten erreicht, die in der Regel er- 
heblich über denen vergleichbarer 





Basic-Programme liegen. Einen 
Compiler kann man bei Comal ge- 
trost vergessen, er würde keinen 
nennenswerten Geschwindigkeits- 
vorteil mehr bringen. 


Von Basic zu Comal 


In Comal 80 sind die besten Eigen- 
schaften der drei Programmierspra- 
chen Basic, Pascal und Logo zu ei- 
nem sehr komfortablen Program- 
mier-System zusammengefaßt. Auf 
der Kommando-Ebene braucht der 
von Basic kommende Comal-An- 
wender nur wenig umzulernen: Pro- 
gramme werden mit LOAD gela- 
den, mit SAVE gespeichert und mit 
LIST gelistet. Auch Befehle wie 
NEW, RUN, AUTO, RENUM oder 
MERGE dürften dem Basıc-Pro- 
grammierer nicht unbekannt sein. 

Viele ım Programm-Modus ver- 
wendete Befehle sind an Basic an- 
gelehnt. Das geht so weit, daß Co- 
mal vielfach Basic-Befehle akzep- 
tiert, wo eigentlich spezielle Comal- 
Schlüsselwörter stehen müßten. Ein 
Beispiel ist die FOR-Schleife, die in 
Comal statt mit NEXT mit ENDFOR 
abgeschlossen werden muß. Tippt 
man Jedoch versehentlich »NEXT«, 
so macht das nichts aus: Das Comal- 
System Ist intelligent genug, um zu 
erkennen, was der Benutzer mit 
NEXT meinte und ersetzt das NEXT 
stillschweigend durch ENDFOR. 


Strukturiert wie Pascal 


Comal 80 für den © 64 ist in vieler 
Hinsicht mit Pascal vergleichbar, oh- 
ne allerdings dessen in vielen Fäl- 
len unnatürliche Strenge und Kom- 
pliziertheit zu übernehmen. Comal 
versucht stets, dem Benutzer dort 
Arbeit abzunehmen, wo dies von ei- 
nem intelligenten System auch ge- 
tan werden kann. Beispielsweise 
zwingt Pascal dazu, alle Variablen, 
Konstanten oder Prozeduren vor der 
ersten Verwendung des entspre- 
chenden Namens zu definieren. Bei 
Comal dagegen ist es gleichgültig, 
wo eine Prozedur im Programm de- 
finiert wird. Bevor das RUN-Kom- 
mando ausgeführt wird, ordnet Co- 
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mal jedem Auftreten eines Proze- 
dur-Namens die entsprechende 
Prozedur selbst zu, egal, ob diese 
vorne, hinten oder in der Mitte eines 
Programms steht. 

Comal 80 ist eine block-struk- 
turierte Sprache und sorgt dadurch 
für Lesbarkeit der Programme. Die 
Sprachstruktur wird durch die Form 
der Bildschirmausgaben beim Li- 
sten noch unterstützt. Comal rückt 
verschachtelte Strukturen automa- 
tisch ein, ohne dafür zusätzlichen 
Speicherplatz zu brauchen. So wer- 
den schon optisch von vornherein 
klare Gliederungen und Strukturen 
geschaffen, die sıch durch Kom- 
mentare und Leerzeilen noch vertie- 
fen lassen. 

Der Sprachumfang von Comal 80 
umfaßt praktisch alle Elemente der 
strukturierten Programmierung: 

Die von Basic her bekannte, ver- 
gleichsweise primitive IFTHEN- 
Abfrage ist in Comal dahingehend 
erweitert worden, daß ganze Pro- 
grammteile bedingt ausgeführt wer- 
den können. Hierzu wird die IF- 
Anweisung in der Form IFTHEN- 
ENDIF verwendet, wobei zwischen 
THEN und ENDIF ein beliebig um- 
fangreicher Programmteil stehen 
kann, der nur ausgeführt wird, wenn 
die Bedingung nach IF wahr ıst. Im 
Falle zweier alternativer Möglıch- 
keiten kann die IF-Anweisung durch 
ELSE zur Form IFTHEN-ELSE- 
ENDIF ergänzt werden. Weitere Al- 
ternativen lassen sıch durch zusätzli- 
che Abfragen mittels ELIF (eine 
Wortbildung aus ELSE IF) leicht ab- 
fragen. Der folgende Programmteil 
druckt einen Wetterbericht in Ab- 
hängigkeit vom Inhalt der Variablen 
»WETTER«: 

100 IF WETTER = -1 


110 PRINT "schlechtes Wetter” 
120  ELEIE WEITER = 1 

130 PRINT "gutes Wetter” 

140 ELSE 

150 PRINT "veraenderlich” 

160 ENDIF 


Falls mehrere Bedingungen zu 
prüfen sind, ist die CASE-Konstruk- 
tion allerdings meist übersichtli- 
cher. Der gleiche Wetterbericht 
mittels CASE-Anweisung formuliert, 
sieht so aus: 

100 CASE WETTER 


110 WHEN -1 
120 PRINT "schlechtes Wetter” 
130 WHEN 1 
140 PRINT "gutes Wetter” 
150 OTHERWISE 
160 PRINT ”veraenderlich” 
170 ENDCASE 
Für die Programmierung von 


Schleifen stehen neben der bereits 





angesprochenen FOR-ENDFOR- 
Schleife (entspricht FOR-NEXT ın 
Basic) drei weitere Schleifen-Kon- 
struktionen zur Verfügung: 

LOOP-ENDLOOFP ist eine Endlos- 
schleife, die nur durch einen einge- 
fügten EXITT-Befehl verlassen wer- 
den kann. 

REPEAT-UNTIL wird durchlaufen, 
bis die Bedingung hinter UNTIL er- 
füllt ist. 

WHILE-ENDWHILE dagegen 
prüft zuerst die hinter WHILE ste- 
hende Bedingung. Der Programm- 
teil zwischen WHILE und ENDWHI- 
LE wird solange ausgeführt, wie die 
Bedingung wahr ist. 

Für ganz spezielle Zwecke exI- 
stiert auch noch ein Sprungbefehl 
(GOTO), jedoch nur auf ein mit ei- 
nem Namen versehenes Sprungziel 
(LABEL). 

Ebenfalls von Pascal übernom- 
men wurde das Konzept der Proze- 
duren und Funktionen. Auch hier 
fällt wieder angenehm auf, daß auf 
einen puren Formalismus zugunsten 
erhöhter Anwenderfreundlichkeit 
verzichtet wurde, 


Prozeduren 


und Funktionen 

Eine P dur] ernt mit ei- 
nem Une, I Basic ver- 
wandt, nur wird sie nicht über »GO- 
SUB (Zeilennummer), sondern di- 
rekt mit einem Namen aufgerufen. 
Im Gegensatz zu Basıc können da- 
bei alle benötigten Parameter mit 
übergeben werden. Dies können 
Zahlen, Strings oder sogar ganze 
Felder sein. Die Prozedur legt sich 
dann lokale Variablen an, was be- 
deutet: Die Namen der Variablen 
sind nur innerhalb der Prozedur 
gültig, der gleiche Variablenname 
bezeichnet also in Prozedur und 
Hauptprogramm verschiedene Va- 
rıable. Im übrigen wird, wie ın Pas- 
cal, zwischen reinen Werteparame- 
tern und sogenannten Varlablenpa- 
rametern unterschieden. 


Bild 1. Comal stellt sich selbst dar. D 


ein Demo-Programm auf den 


Aral ig nn 


C 64 


Durch Prozeduren bietet Comal 
die Möglichkeit, den Sprachumfang 
praktisch beliebig zu erweitern. 
Ähnlich verhält es sich mit den 
Funktionen, die — anders als Basic- 
Funktionen — über beliebig viele 
Zeilen definiert werden können. Die 
Funktionsdefinition wird eingeleitet 
durch das Schlüsselwort FUNC und 
beendet durch ENDFUNC. Wie beı 
Prozeduren können beliebig viele 
Parameter an eine Funktion überge- 
ben werden. Der Unterschied zu 
Prozeduren besteht darin, daß eine 
Comal-Funktion immer einen be- 
stimmten Wert zurückliefert, der 
durch RETURN (Wert) ausgewählt 
wird. RETURN hat hier nichts zu tun 
mit dem Basic-Befehl RETURN, son- 
dern definiertnurdenvon der Funk- 
tion zurückzuliefernden Wert. 


Fehlerbehandlung 
leicht gemacht 


Um eine möglichst weitgehende 
Benutzerfreundlichkeit zu realisie- 
ren und die Programmierung zu ver- 
einfachen, wurde Comal mit kom- 
fortablen Möglichkeiten zur Be- 
handlung von Fehlern versehen. 
Diese beschränken sich nicht nur 
auf das Abfangen aller möglichen 
Fehlerarten, sondern es sind auch 
automatische Korrekturen und die 
Weitergabe von Meldungen an 
übergeordnete Programm-Struktu- 
ren möglich. Dabeı können sogar 
bewußt Fehler erzeugt oder über- 
tragen werden. Die Fehlerbehand- 
lung stellt selbst eine Programm- 
struktur dar. Der Teil des Pro- 
gramms, in dem Fehler abgefangen 
werden sollen, wird durch TRAP 
und ENDTRAP eingeklammert. Die- 
ser Programmteil enthält auch die 
Fehlerbehandlungs-Routine (HAND- 
LER), die im Fehlerfall aufgerufen 
wird. Ein Beispiel: 

10 // Quadratwurzel 
15 PRINT ”bitte Zahl eingeben: ” 


20 TRAP 


jı.7 
en Un 


> pi n 
2 we 





Jie Speicherbelegung, wie sie 
ıirm zeichnet. 
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25 INPUT ZAHL 

30 PRINT SQR(ZAHL) 
35 HANDLER 

40 CASE ERR OF 

45 WHEN 206 


>0 PRINT "nur Zahl einge- 
ben !” 

55 WHEN 1 

60 PRINT ”negati- 


ve Zahl nicht erlaubt !” 
65 OTHERWISE 


70 PRINT ERR, ERRTEXT$ 
75  ENDCASE 
80 ENDTRAP 


Dieses Programm wartet auf die 
Eingabe einer Zahl und berechnet 
danach die Quadratwurzel aus die- 
ser Zahl. Zwei Fehlermöglichkeiten 
sind dabei offensichtlich: Zum einen 
kann der Benutzer irrtümlich ir- 
gendwelche Buchstaben mit einge- 
ben (Fehler 206, »numeric constant 
expected«), zum anderen darf das 
Argument der Quadratwurzel- 
Funktion nicht negativ werden (Feh- 
ler 1, »Argument Error«). Durch den 
TRAP-HANDLER werden diese bei- 
den Fehler abgefangen und mit ent- 
sprechenden Meldungen quittiert. 
Falls wider Erwarten irgendein an- 
derer Fehler auftreten sollte, so 
wird in Zeile 70 einfach die Fehler- 
nummer samt dazugehörigem Feh- 
lertext übergeben. Wenn Sie sich 
an den englischen Fehlermeldun- 
gen stören sollten — Comal ermög- 
licht es Ihnen, alle Fehlermeldun- 
gen neu zu formulieren und abzu- 
speichern. 


Comal und die 1541 


Ein Schwachpunkt im © 64-System 
ist bekanntlich die Floppy-Station 
1541. Die meisten C 64-Besitzer ha- 
ben sich wohl zähneknirschend dar- 
an gewöhnt, daß das Auflisten des 
Directorys mit Programmverlust be- 
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straft wird und daß man zur Änzeige 
der DOS-Fehlermeldungen eın Pro- 
gramm benötigt. Mit Comal 80hates 
ein Ende mit dem Zähneknirschen: 
DIR oder CAT zeigen das Directory, 
PASS sendet Kommandos an die 
154l. Der Fehlerkanal wird entwe- 
der sofort angezeigt — wobei dies 
mit Hilfe des TRAP-Handlers ge- 
steuert werden kann — oder kann 
durch STATUS abgefragt werden. 
CREATE legt eine relative Datei an, 
mit GET$ kann eine beliebige An- 
zahl von Bytes von der Floppy- 
Station eingelesen werden. 

Auch in Richtung Programmıer- 
technik hat man sich einiges einfal- 
len lassen. Programmteile können 
mit CHAIN nachgeladen werden, 
wodurch Comal-Programme theo- 
retisch bis zu 200 KByte lang sein 
können (30 KByteimRAM, 170 KByte 
auf Diskette), Außerdem können 
Comal-Prozeduren und -Funktionen 
als EXTERNAL deklariert werden. 
Dies bedeutet, daß ım Programm 
nur der Prozedurkopf vorhanden 
sein muß. Die Prozedur selbst befin- 
det sich in diesem Fall auf der Dis- 
kette und wird beim Aufruf automa- 
tisch nachgeladen und ausgeführt. 
Nach getaner Arbeit wırd die Proze- 
dur dann einfach wieder aus dem 
Speicher geworfen, um keinen Platz 
zu verschwendeni.ne®: 

Comal kann mit bis zu acht Lauf- 
werken gleichzeitig arbeiten und 
unterstützt von vorneherein auch 
den Anschluß der »großen« Com- 
modore-Laufwerke der 40xx- und 
80xx-Serie. 


Die Zusatz-Pakete 


Natürlich läßt sich auch mit der 
Datasette arbeiten, allerdings mit 
den von Basic bekannten Einschrän- 
kungen hinsichtlich Bedienungs- 
komfort und Leistungsfähigkeit. 

Bisher war nur von dem internatio- 
nal genormten Grundwortschatz 


ıen Fanigkeilen von Lomal. 
und Grafik wurden definiert 
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von Comal die Rede. Es ist jedoch 
auch möglich, systemabhängige 
oder anwenderspezifische Sprach- 
erweiterungen zu integrieren. Eine 
solche Spracherweiterung wird ın 
Comal als »Package« bezeichnet. 
Packages (Pakete) sind nichts ande- 
res als Sammlungen von Comal-Pro- 
zeduren oder -Funktionen, die meist 
in Maschinensprache geschrieben 
sind, aber natürlich auch in Comal 
verfaßt sein können. Eine Reihe der- 
artiger Spezial-Pakete sind in Comal 
80 bereits fest eingebaut. Es bereitet 
aber nur wenig Mühe, sich weitere 
Packages selbst zusammenzustel- 
len. 

Ein fertig programmiertes Packa- 
ge kann auf Diskette abgelegt und 
bei Bedarf in einen reservierten 
16-KByte-RAM-Bereich geladen 
werden, belastet also nicht den 30 
KByte großen Comal-Programm- 
speicher. Fest eingebaut sind be- 
reits elf Packages, mit denen sıch 
die Fähigkeiten des Comal-Systems 
nochmals potenzieren: 

1. English 

Nach »USE ENGLISH« gibt Comal 
alle Fehlermeldungen ım englı- 
schen Klartext aus. 

2. Danish 

Hiermit erscheinen alle Fehler- 
meldungen im dänischen Original. 
3. Graphics 

Dieses Package erweitert Comal 
umeine Reihe von speziellaufden C 
64 zugeschnittenen Grafik-Befehlen. 
4. Turtle Graphics 

An diesem Package werden Lo- 
go-Freunde ihre helle Freude ha- 
ben. Alle Grafikbefehle von Logo 
stehen hiermit zur Verfügung. 

5. Sprites 

Alles, was der © 64 in dieser Rich- 
tung hardwaremäßig zu bieten hat, 
ist hier in Form komfortabler Comal- 
Befehle verfügbar. 

6. Sound 

Es gibt wohl keine Funktion des 
SID-Chips, die nicht durch spezielle 
Comal-Befehle unterstützt wird. Als 
besonderer Komfort können Noten 
als Strings codiert und abgespielt 
werden. Dies geschieht interruptge- 
steuert, so daß Hintergrundmusik 
sehr einfach programmiert werden 
kann. 

7. Paddies 

Dieses Package enthält Prozedu- 
ren und Funktionen zur Äbfrage der 
Controlports. 

8. Joysticks 

Hiermit wird die Joystick-Kontrolle 
zum Kinderspiel. 
9. Lightpen 

Wer einen Lightpen sein eigen 
nennt, der findet hier alle Spezial- 


Fortsetzung auf Seite 164 
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Aufgerü 


Mainfile II ist ein Hilfsmittel zur einfachen Pr 





Software-Test 


umt mit Mainfile Il 


Bringen Sie Ordnung in Ihre Karteikästen und Adressenbücher! 


rammierung von Dateiverwal- 


tungen. Das Besondere: es belegt keinerlei Speicher im Computer. 


ährend herkömmliche Pro- 
W gramme zur Dateierstellung 

und Dateiverwaltung se- 
quentielle oder relative Dateien an- 
legen, folgt Mainfile II wegen der 
mit den genannten Dateitypen ver- 
bundenen Nachteile einem völlig 
anderen Prinzip: Mainfile II ist eine 
von Grund aufneue Betriebssystem- 
erweiterung für Commodore-Dis- 
kettenlaufwerke. Mainfile Il ist völlig 
unabhängig vom Commodore-Com- 
puter. Voraussetzung an den Com- 
puter ist lediglich, daß die Floppy 
1541 anschließbar ist, dasich alles in 
deren RAM abspielt. Einsetzbar ist 
Maimfile II bisher für C 16, VC 20, C 
64, SX 64, C 116 und Plus/4! 

Mit Mainfile I können pro Diskette 
bis zu 114 Dateien erstellt werden. 
Eine Datei besteht dabei aus einzel- 
nen Datensätzen, auf die man ex- 
trem einfach und schnell zugreifen 
kann. Eine Diskette kann maximal 
650 Datensätze zu je 228 Byte enthal- 
ten. 

Bevor man mit Mainfile II zu arbei- 
ten beginnt, muß man sich eine Da- 
tendiskette mit den vier sogenann- 
ten Makrobefehlen erstellen. Alle 
Makrobefehle sind durch ein voran- 
gestelltes &-Zeichen kenntlich ge- 
macht. Dem Kopieren dieser Befeh- 
le dient ein auf der Systemdiskette 
befindliches Programm. 

Ungewohnt bei Mainfile Il ist, daß 
keinerlei Programme in den Com- 
puter geladen werden müssen. Zu- 
erst einmal ist ein Offnen der Kanäle 
2 und 15 zur Übertragung von 
Daten, Befehlen und Meldungen an 
die Floppy erforderlich. Mit PRINT 
#15,"& CREATE Test” wird der Ma- 
krobefehl CREATE aufgerufen, der 
eine neue Datei mit dem Namen 
»Test« auf der Diskette einrichtet. 

Die Befehlsfolge PRINT#15,”& 
MAINFILE Test” aktiviert das Main- 
file II-System und gibt den Namen 
der Datei an, auf die zugegriffen 
werden soll. 

Der einfachste Weg, sich in Main- 
file II einzuarbeiten, ist wohl das La- 
den des Demo-Programmesvon der 
Systemdiskette. Nachdem das in Ba- 
sıc geschriebene Demonstrations- 
programm zur Erstellung und Bear- 
beitung einer Ädreßdatei gestartet 
wurde, wird man aufgefordert, die 
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Datendiskette einzulegen. 

Nur beschränkt durch die Kapazi- 
tät der Diskette wäre es theoretisch 
möglıch, 650 Datensätze mit Name, 
Vorname, Straße, Wohnort und Tele- 
fonnummer einzutragen. Namen 
dürfen leider nicht mehrfach vor- 
kommen, da sie nicht unterschieden 
werden können. Jeder Datensatz 
wird unmittelbar nach der Eingabe 
über denKanal #2 zur Floppy über- 
tragen und in der Datei, deren Na- 
me vorher mit »Demo« definiert wur- 
de, gespeichert. 

Die eingegebenen Datensätze kön- 
nen anschließend bearbeitet oder 
nach bis zu acht Kriterien durch- 
sucht werden. Zum Auswerten der 
Datensätze definiert man Suchbe- 
griffe, indem man zum Beispiel »1 
München« eingibt. Anschließend 
kann man mit dem Kriterium »l« alle 
en, in denen das Wort »Mün- 
chen« vor und zur Be- 
arbeitun Re a lie Nach- 
dem man so Mainfile II etwas er- 
probt hat, sollte man sich das Listing 
des Demo-Programmes vornehmen. 
Es ist so klar und übersichtlich ge- 
schrieben, daß man die praktische 
Verwendung aller wesentlichen Be- 
fehle sehr schnell versteht (gewisse 
Grundkenntnisse der Programmier- 
sprache Basic vorausgesetzt). Die 
klare Gliederung ergibt sich insbe- 
sondere durch die hier konsequent 
benutzte Unterprogrammtechnik. 

Mainfile II benutzt die binäre Da- 
tenspeicherung: Der zuerst einge- 
gebene Datensatz wird als Vater be- 
zeichnet. Der Vater kann zwei Söhne 
haben. Ein Sohn ist dabei alphabe- 
tisch kleiner, der andere alphabe- 
tisch größer als der Vater. Entspre- 
chend kann jeder Sohn wieder Va- 
ter von zwei eigenen Söhnen sein. 
Beim Suchen hangelt sich Mainfile II 
dann durch den so erstellten Binär- 
baum. Selbstverständlich ist es bei 
diesem Anordungsprinzip nicht 
sinnvoll, Datensätze alphabetisch 
geordnet einzugeben, der Such- 
baum würde entarten, daimmer nur 
»große Söhne« angelegt würden. 


Befehlssatz: 


&CREATE legt eine Mainfile II-Datei auf der Dis- 
kette an 


&MAINFILE aktiviert die Userbefehle 

&PROTECT schützt ein File vor dem Löschen mit 
dem DOS-Befehl SCRATCH 

&UNPROTECT hebt den Löschschutz auf 
UAPPEND ermöglicht das Anhängen weiterer 
Daten an einen schon bestehenden Datensatz 
UBACK sucht den alphabetischen Vorfahr 
UEND beendet einen Schreibvorgang in eine 
Datei 

UFIND sucht einen mit seinem Namen bezeich- 
neten Datensatz 

UHELP gibt den Namen, Track und Sektor des 
aktuellen Datensatzes aus 

UINITIALIZE versetzt das Laufwerk in seinen Ein- 
schaltzustand 

WOKER definiert einen Testjoker, der beim Su- 
chen überlesen wird 

UKEY ermöglicht die Definition von bis zu acht 
Suchtexten 

UMOVE bewirkt ein Lesen des Datenblockes 
durch Angabe des entsprechenden Zeigers 
UNEXT sucht den alphabetischen Nachfolger 
UOFF schaltet die User-Befehle ab und versetzt 
das Laufwerk in den Grundzustand 

UPOS gestattet Direktzugriff durch Angabe von 
Track und Sektor 

USCRATCH löscht Datensätze 

UTEST testet den aktuellen Datensatz auf Name 
und Suchbegriffe 

UVALIDATE belegt die von Mainfile II benutzten 
Blöcke 

UWRITE legt einen neuen Datensatz an oder 
überschreibt einen alten 


Mainfile II kann in jeder Program- 
miersprache, die Kommandos an 
die Floppy zuläßt, eingesetzt wer- 
den. An den relevanten Stellen ist 
nur der entsprechende Befehl ein- 
zugeben. 


Fazit: 

Mainfile Il ıst für alle fortgeschrit- 
tenen Basic-Programmierer emp- 
fehlenswert, die ein schnelles und 
komfortables Hilfsmittel zur Pro- 
grammiıerung von Datenverwaltung 
suchen. Es muß aber an dieser Stel- 
le vor dem nicht nur für Anfänger 
teilweise unverständlichen und lük- 
kenhaften Handbuch gewarnt wer- 
den. (Um ein erstes Arbeiten mit 
dem Programm überhaupt erıst 
möglıch zu machen, müssen die Ma- 
krobefehle auf eine eigene Diskette 
kopiert werden.) Weiterhin sollte 
der Käufer bereits über umfangrei- 
che Programmkenntnisse verfügen. 
Der Sinn von Mainfile II besteht dar- 
in, sich seine eigenen Datenverwal- 
tungen zu programmıeren. 

(Dieter Hein/tr) 


Info: Mainfile II, GES-Computer, Steinheimer Straße 22, 
6450 Hanau. Unverbindliche Preisempfehlung: 98 Mark 
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Trends 


In Deutschland wird der Jugend- 
schutz Jetzt auch bei Software sehr 
ernst genommen. Im August setzte 
die Bundesprüfstelle für Jugendge- 
fährdende Schriften sieben Spiele 
auf den Index. Was bedeutet dies? 

Für indizierte Spiele darf nicht ge- 
worben werden. Weiterhin dürfen 
diese Spiele nicht mehr an Minder- 
Jährige verkauft oder ihnen zugäng- 
lich gemacht werden. 

Die jetzt indizierten Spiele sind 
schon relativ alt, aber einmal in 
Gang gesetzt, wird die »schwarze Li- 
ste« wohl sehr schnell wachsen. Be- 
sonders der Versandhandel wird 
schwer betroffen. Wie soll man ın 
dıeser Branche Spiele anbieten, oh- 
ne werben zu dürfen? 

Die Meinungen über die Ent- 
scheidung der Prüfstelle sind ge- 
teilt. Uber eine Indizierung von Spie- 
len wie zum Beispiel »Beach Head Il« 
braucht man nicht zu diskutieren. 
Doch sollte sich die Indizierung so 
ausweiten, daß Jedes Spiel, in dem 
man in irgendeiner Form schießen 
muß, auf die »schwarze Liste« 
kommt, hat man wohl am Ziel »vor- 
beigeschossen«. 


Preisbrecher 


Ganz ım Trend zur preiswerten 
Software liegen die Angebote von 
Quellesoft, einer neuen Abteilung 
des Großversandhauses Quelle. Un- 
ter diesem neuen Label gibt es Soft- 
ware zu sehr niedrigen Preisen. So 
wird ein Software-Paket angeboten, 
das sechs Spiele beinhaltet (unter 
anderen »Decathlon« und »Hunch- 
back Il«) und nur knapp 30 Mark ko- 
stet, sowie ein deutsches Actionad- 
venture für nur 10 Mark. 

Mit diesen Billig-Angeboten 
möchte sıch nun auch Quelle einen 
Änteil am Softwaremarkt sichern. 
Der Vertrieb soll auf zwei unter- 
schiedliche Arten erfolgen. Spiele, 
bei denen man vermutet, daß sie 
»Dauerbrenner« werden, sollen im 
Katalog ins Angebot kommen. Sie 
sind dann im Versand erhältlich. Al- 
le anderen Programme sind nur in 
den einzelnen Quelle-Niederlas- 
sungen zu bekommen. 

In Zukunft will die Quellesoft- 
Abteilung nur noch Programme ver- 
treiben, die exklusiv bei Quelle zu 
bekommen sind. 

Ob es auch weiterhin bei so nied- 
rigen Preisen bleiben kann, muß 
sıch erst erweisen. Auf jeden Fall 
dürfte es sich bei diesen Preisen für 
Raubkopierer nicht mehr lohnen, 
sich mit den Programmen zu be- 
schäftigen. (rg) 
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50x »Elite« zu gewinnen 


In der Ausgabe 9/85 stellten wır 
Ihnen das Spiel »Elite« vor. Hiernoch 
einmal eine kurze Zusammenfas- 
sung: Es handelt sich bei Elite um 
ein dreidimensionales Weltraum- 
Abenteuerspiel der Spitzenklasse. 
Die Aufgabe besteht hauptsächlich 
darin, in acht Galaxien mit über 2000 
verschiedenen Planeten Handel zu 
treiben, um möglichst viel Geld zu 
verdienen. Dies ist nicht so einfach, 
da überall Gefahren wie zum Bei- 
spiel Piraten lauern. Wenn Sie er- 
folgreich sind, werden Sie In Ihrer 
Rangstufe hoch gesetzt. Der höchste 
zu erreichende Rang ist »Elite«. Auf 
dem optimalen Weg benötigen Sie 
mindestens 89 Stunden, um diesen 
Rang zu erreichen. 

In dieser Ausgabe verlosen wir 50 
Exemplasemdenı dewischen Elite- 
Version, die uns vom englischen 
Hersteller Firebird und der deut- 
schen Vertriebsfirma Rushware zur 
Verfügung gestellt wurden. Um sich 
an dieser Verlosung zu beteiligen, 
müssen Sie nur die dreiunten aufge- 
führten Fragen beantworten. 


Senden Sie Ihre Äntwort an: 
Markt & Technik Verlag AG 
Redaktion 64er 
»Elite-Verlosung« 
Hans-Pinsel-Str. 2 

8013 Haar bei München 


Wenn Sie sich an der Verlosung 
der 50 Elite-Exemplare beteili- 
gen wollen, beantworten Sie bitte 
folgende Fragen. Die Antworten 
senden Sie bitte an die oben er- 
wähnte Adresse. 

l. Wieviele Planeten können Sie 
mit »Elite« anfliegen? 

2. Welches ist der höchste Rang, 
denSieindiesem Spiel erreichen 
können? 

3. Wie lange benötigen Sie für die 
Lösung, wenn Sie den optimalen 
Lösungsweg nutzen? 

Bitte beachten Sie den Einsen- 
deschluß: 15. Oktober 1985. Nach 
diesem Termin eingehende Post- 
karten können leider nicht mehr 
berücksichtigt werden. 








Rescue on Fractalus 


Wieder einmal gilt es, eine Inva- 
sion von Außerirdischen abzuweh- 
ren. Die dafür ausgewählten Raum- 
piloten haben allerdings ein kleines 
Problem. Die Gegner, Jaggles ge- 
nannt, haben sich auf einem der 
schlimmsten Planeten des Univer- 
sums, Fractalus, verschanzt. Fracta- 
lus istein zerklüfteter Gebirgsplanet 
mit giftiger Säure-Atmosphäre. Die 
Raumpiloten, die die Jaggies ver- 
nichten sollten, sind bei ihrem Ein- 
satz abgeschossen worden. Sie war- 
ten auf der Planetenoberfläche auf 
ihre Rettung. Und ohne die Raumpı- 
loten sind die Chancen eines Siegs 
gleich Null. Soweit zur Rahmen- 
handlung. 

Hier setzt nun der Spieler ein. Mit 
einem Spezialgleiter soll er die Pilo- 
ten einsammeln und im Mutterschiff 
abliefern. Daß die Jaggies dabeı 
nicht tatenlos zusehen, ist wohl klar. 
So erwarten den Spieler Laser-Ge- 
fechtsstationen, fliegende Bomben 
und als Piloten getarnte Jaggies. 

Die Ausführung des Spiels ıst 
rundum gelungen. Eine gute, aber 
etwas langsame 3D-Grafik zeigt die 
Gebirgslandschaft, Angreifer und 
hervorragend animierte Piloten. Die 
Soundeffekte sind spärlich, aber 
sehr gut. Die Auftaktmusik ist guter 
Durchschnitt. 

Rescue on Fractalus ist ein gut ge- 
machtes Action-Spiel mit neuen 
Ideen und guten Effekten. 

Ein wichtiger Hinweis: Dieses 
Spiel läuft noch nicht im C 64-Modus 
des © 128! (bs/rg) 


Titel Rescue on Fractalus 
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6360 Friedberg 
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Boulder Dash Il 


Boulder Dash-Fans dürfen sich 
freuen: MicroFun hat endlich ein 
Folgespiel produziert. Ähnlich wie 
der Championship Loderunner für 
Loderunner-Fans, ist Boulder Dash 
II ebenso speziell für Personen ge- 
dacht, die denersten Teil schon aus- 
giebig gespielt haben. Die Levels 
wurden noch wesentlich aufwendi- 
ger gemachtalscie desersten Teils. 
Was bedeutet: Mehr denken, 
schneller spielen und weniger Feh- 
ler machen. 

Für diejenigen, die Boulder Dash 
noch nicht kennen: Ziel des Spiels ist 
es, Juwelen aufzusammeln und den 
Level lebend zu verlassen. Behin- 
dert wırd man von fallenden Stei- 
nen, explodierenden Schmetterlin- 
gen (die nach der Explosion zu Ju- 
welen werden), pulsierenden Vier- 
ecken (die einen Verfolgungsdrang 
zu haben scheinen) und noch eini- 
gen anderen Dingen. 

Im Vergleich zum ersten Teil hat 
Boulder Dash II einige neue Ele- 
mente, zum Beispiel Wände, die 
nach links und rechts expandieren, 
bissieandenRand oder ein Hinder- 
nis stoßen. In Boulder Dash II gibtes 
Levels, indenen nur ganz bestimmte 
Lösungssysteme funktionieren. Das 
soll nicht bedeuten, daß man nicht 
mehrere Lösungswege benutzen 
kann. Aber zuerst muß man eben 
ein ganz bestimmtes System heraus- 
finden, mit dessen Hilfe man sich 
dann dıe Lösung erarbeitet. 

Ein Muß für Boulder Dash-Fans! 

(M. Kohlen/rg) 
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ca. 39 Mark (Kass.) 
Rushware 


Ausgabe 10/Oktober 1985 


Nick Faldo Plays the Open 


Nick Faldo heißt einer der weltbe- 
sten Golfspieler. Sie als Nick Faldo 
müssen nun zeigen, was ein guter 
Golfspieler kann. Als Kurs wurde 
der »Royal St. Georges Golf Club« 
für das Spiel übernommen. 

»Nick Faldo Playsthe Oper«istein 
gutes Golfspiel. Alle Schwierigkei- 
ten der Originalgolfstrecke sınd in 
dies Spiel eingebaut. Die Windstär- 
ke ıst nicht nur miteinberechnet, 
sondern wechselt ständig und ist 
wirklichkeitsgetreu. Wählbar sind 
die verschiedenen Schläger, die 
Stärke des Schlags, die Richtung 
und das Loch, das man anzuspielen 
wünscht. Hat man das alles ausge- 
wählt, so geht es an den Schlag 
selbst: Man sıeht den Caddy den 
entsprechenden Golfschläger rei- 
chen, und«der Spielemfe=ihlägt ab. 
Während der Ball fliegt, scrollt das 
Spielfeld mit. Das Spielfeld ist etwa 
900 Bildschirme groß. Auf Wunsch 
kann natürlich eine Gesamtüber- 
sicht angesehen werden, die dann 
den gesamten Golfplatz auf dem 
Bildschirm darstellt. 

Trotz der vielen Auswahlmöglich- 
keiten ıst keine Tastatursteuerung 
notwendig, denn durch ein gutes 
Auswahlmenü kann man alle Optio- 
nen mit dem Joystick einstellen. 

»Nick Faldo Plays the Open« ist ein 
Spiel, das auch über längere Zeit 
hinweg spaß machen kann. Die Gra- 
fik ist ansprechend, auf den spärli- 
chen Sound braucht man angesichts 
des interessanten Spiels eigentlich 
nicht zu achten. (M. Kohlen/rg) 
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Thing on a Spring 


Es ist mal wieder ein Held ım 
Kampf gegen das Böse unterwegs. 
Der Bösewicht hat alle Schätze der 
Welt in seine unterirdische Fabrik 
gehext. Unserem Helden ist es ge- 
lungen, In diese Fabrik einzudrin- 
gen. Der Held ıst übrigens kein 
Mensch, sondern ein »Ihing on a 
Spring«, ein »Ding auf einer Feder«. 
Sein Ziel ist natürlich die Vernich- 
tung des Bösewichts. Auf dem Weg 
zu dieser Heldentat müssen insge- 
samt neun Puzzleteile eingesammelt 
werden. Zusammengesetzt geben 
sie einen Hinweis und das »Ding auf 
einer Feder« kann die versteckten 
Schätze wieder zusammentragen. 
Mit Hilfe der einzelnen Schätze er- 
langt er verschiedene Fähigkeiten. 
Der erste erlaubt das Benutzen der 
Lifte, mit einem weiteren kann er die 
Teleporter ausnutzen. E 

Zum Hüpfen braucht das Ding Ol, 
um seine Feder zu schmieren. In je- 
dem Raum ist ein Olbehälter zu fin- 
den. Doch er muß sich das Ol gut 
einteilen, um sein Ziel zu erreichen. 

Auf dem Weg zum Bösewicht blei- 
ben dem Spieler zwei Alternativen: 
erstdenken, dann handeln oder eın- 
fach ausprobieren. Äber meist 
kommt man mit etwas Überlegen 
schneller ans Ziel. 

Die schöne Grafik, verbunden mit 
einem unvergleichlichen Sound, ma- 
chen aus diesem Spiel ein Erlebnis. 
Thing on a Spring ist nicht einfach 
nur ein Hüpfspiel, es ist auch ein lo- 
giısches Puzzle, das den Spieler zum 
Denken zwingt.(Manfred Kohlen/rg) 
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richteten wirzumersten Malüber 

Manipulationen an Directories. 
Die Resonanz auf diesen Artikel war 
sehr groß. Es kamen sowohl neue 
Tips bei uns an, wie auch Verfahren 
zur Überwindung der schon vorge- 
stellten Manipulationen. Beides wol- 
len wir Ihnen nicht vorenthalten. 
Deswegen also einiges mehr über 
Directories und deren Manipula- 
tion. Alles, was Sie an Handwerks- 
zeug benötigen, ist ein Diskettenmo- 
nitor wie beispielsweise den ausder 
b4’er, Ausgabe 8/85. 


Mit dem Fragezeichen 


überlisten 


Sehr ausführlich haben wir über 
Tricks berichtet, die mitdem Gänse- 
füßchen zusammenhängen. Ein 
Gänsefüßchen im Filenamen sorgt 
für Verwirrung, weil es sich ja nicht 
direkt mit dem LOAD-Befehl einge- 
ben läßt. Floppy-Experte Karsten 
Schramm machte uns aber auf das 
Fragezeichen, das zweite, selten be- 
nutzte Jokerzeichen der 1541 auf- 
merksam. Will man ein mit Gänse- 
füßchen im Filenamen gesichertes 
Programm laden, dann benutzt man 
beim LOAD-Befehl einfach das Fra- 
gezeichen. Anstelle von »LOAD 
"64”CHRS(34)”ER”,8« funktioniert 
also auch »LOAD ”64?ER” ,8«. Ahn- 
lich kann man natürlich vorgehen, 
wenn Grafikzeichen oder Steuerco- 
des ın den Filenamen unterge- 
bracht worden sind. Ein bekanntes 
Beispiel sind die auf Diskette ge- 
speicherten Bilder des Koala- 
Painter mitdemreversen Pik imFile- 
namen. Auch hier leistet das Frage- 
zeichen gute Dienste. 


Endlose Directories 


Die Ladezeit für ein Directory be- 
trägt normalerweise nur einige Se- 
kunden. Das ändert sich schlagar- 
tig, wenn man ein Directory unend- 
lich lang macht. Wer ein solches 
endloses Directory mit dem LOAD- 
Befehl laden will und nicht nach 
mehreren Minuten entnervt die 
SIOP-Taste drückt, der wird mit net- 
ten optischen Effekten und einem 
Systemabsturz belohnt. Spätestens 
dann, wenn der $D-Bereich (V/O- 
Bausteine, VIC, etc.) überschrieben 
wird, spielt Ihr Computer nichtmehr 
mit. Wer den Ladevorgang unter- 
bricht, kann mit dem normalen LIST- 


I: der 64’er, Ausgabe 6/85, be- 
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Directory-Manipulationen Il 


Wollen $ie nicht, daß jemand unbefugt Ihre 
Programmsammlung benutzt oder kopiert? 
Schützen Sie doch einfach Ihr Directory! 
Wir zeigen Ihnen, wie man’s macht. 


Befehl das Directory nicht lesen, da 
die Basıc-Zeiger nicht richtig gesetzt 
werden. Ein Maschinensprachemo- 
nitor oder ein RENEW (OLD) kön- 
nen die Filenamen aber sichtbar 
machen. Trotzdem ist der Verblüf- 
fungseffekt groß, wenn ein einfa- 
cher LOAD-Befehl, den man jeden 
Tag benutzt, zum Systemabsturz 
führt. 

Doch wie erzeugt man ein endlo- 
ses Directory? Benötigt wird nichts 
weiter als ein einfacher Disk- 
Monitor. Wenn Sie das Directory auf 
der Spur l8 mitverfolgen, stellen Sie 
fest, daß die beiden ersten Bytes 
des letzten Directoryblocks $00 und 
$FF lauten. 

Andern Sie einfach diese beiden 
Bytes auf »IA O1 RR N Der 
letzte Directoryblock zeigt nun auf 
den ersten Directoryblock. Das Di- 
rectory befindet sich jetzt sozusagen 
in einer Endlosschleife: Ist es zu En- 
de, geht es gleich wieder von vorne 
los. Eine recht amüsante Sache, die 
übrigens auch bei professioneller 
Software häufig zu finden ist. 


Ein Directory zieht um 


Beim folgenden Trick könnte man 
auch von »multiplen« (mehrfachen) 
Directories sprechen, der Begriff 
»Umzug« ist allerdings viel anschau- 
licher. Den Effekt zu beschreiben, 
der beim Listen von umgezogenen 
Directories auftritt, ist praktisch un- 
möglıch, da sich ein umgezogenes 
Directory durch fast nichts von ei- 
nem normalen unterscheidet. Ver- 
sucht man aber, eines der weiter 
hinten gelegenen Programme zu la- 
den, beispielsweise das zehnte, 
dann passiert alles mögliche. Vom 
»FILE NOT FOUND ERROR« über 
den »OUT OF MEMORY ERROR« 
bis hin. zum Systemabsturz. Aller- 
dings lassen sich die ersten acht Fi- 
les ganz normal laden und starten. 
Diese acht Files laden nun Pro- 
grammteille nach, die entweder 
nicht von Hand geladen werden 
können, weil dann oben beschrie- 


bene Effekte eintreten, oder gar 
nicht im Directory stehen! Was ist 
passıert? Ein Blick mit dem Disket- 
tenmonitor offenbart folgendes: Der 
erste Directoryblock (18,1) weist 
nicht auf den normalerweise zwei- 
ten Directoryblock (18,4), sondern 
auf einen anderen, beispielsweise 
18,5. Trotzdem steht in 18,4 ein ver- 
nünftiger Teil des Directorys. Dieser 
wird normalerweise aber niemals 
gelesen. Das Ladeprogramm, das 
auf diese Teile des Directorys zu- 
greifen wıl, muß vor dem Zugriff 
den Zeiger in 18,1 von 18,5 auf 18,4 
ändern. Dann ist das Directory so, 
wie es sein sollte. Nach dem Zugriff 
wird der Zeiger dann wieder sofort 
auf das Dummy-Directory, das kei- 
nerlei Funktion außer der Verwir- 
rung hat, zurückgestellt. Es existie- 
ren also zwei unterschiedliche Di- 
rectories aufder Diskette, wobei das 
»echte« immer nur nach einer Vor- 
behandlung der Diskette erreich- 
bar ist. 

Wie man so ein Dummy-Directory 
erstellt? Nichts einfacher als das: Ko- 
pieren Sie mit einem Disketten- 
Monitor Directory-Blöcke von ande- 
ren Disketten auffreie Blöcke der zu 
schützenden Diskette und gleichen 
Sie die Zeiger an. Der Begriff »Um- 
zug« ist deswegen treffend, weilman 
sich ja nicht nur auf die Spur 18 be- 
schränken muß: Der Zeiger des er- 
sten Blockes kann beispielsweise 
auf 1,1 zeigen, das Directory (oder 
der Dummy) geht also auf der Spur 
l weiter, wo man es nicht vermutet 
und somit auch mit einem Diskmoni- 
tor nicht so leicht findet (Wer sucht 
schon alle 683 Blöcke einer Diskette 
nach einem Directory ab?). 

Wer jetzt besonders gemein zu 
seinen lieben Mitmenschen sein 
will, der kann das Directory zum 
Laufwerks-Killer umgestalten. Man 
kombiniert dazu den Umzugtrick mit 
dem des endlosen Directorys: Der 
erste Directoryblock verweist auf 
l,l, dieser verweist auf 35,1 und der 
wieder zurück auf 1,1. Die Folge: 
Beim Ladeversuch des Directories 
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rast der Schreib-Lese-Kopf wie wild 
zwischen den Spuren 1 und 35 hin 
und her. Bis zu über zweihundert 
Mal kann das gehen, betätigt man 
vorher nicht die STOP-Taste. Danach 
erhält man dann wieder den schon 
bekannten Systemabsturz. War- 
nung! Mit dieser Methode kann man 
die Laufwerksmechanik überlasten 
und somit beschädigen! 


Geheimnisvolles 
Leerzeichen 


Mit einem Leerzeichen kann man 
ganz verrückte Sachen anstellen. Es 
geht hier allerdings nicht um das 
Leerzeichen, das man bei Druck auf 
die SPACE-Taste erhält, sondern um 
seinen nahen Verwandten: SHIFT- 
SPACE. Optisch lassen sich die bei- 
den nicht auseinanderhalten. Nur 
durch ihre ASCII-Codes, 32 für das 
normale und 160 für SHIFT-SPACHE, 
unterscheiden sıe sich. Wenn es 
aber um Directories geht, dann er- 
hält SHIFT-SPACE eine tragende Be- 
deutung, die es weit über das nor- 
male Leerzeichen hinaushebt. Um 
sich die fatalen Wirkungen von 
SHIF'I-SPACE vor Augen zu führen, 
sehen Sie sich doch einmal das Di- 
rectory ınBild lan. Dassieht alles so 
bekannt aus, werden Sie sagen. 
Richtig: Ähnliche Effekte lassen sich 
auch mit einem Gänsefüßchen als 
erstem Buchstaben im Filenamen 
erzielen. Dummerweise lassen sich 
diese Programme aber nicht mit 
»LOAD CHR$(4)”name”,8« laden. 
Und sogar das Fragezeichen als Er- 
satz für den ersten Buchstaben ver- 
sagt! Was geht hier vor? 

Ein Blick mit einem Disk-Monitor 
offenbart das Geheimnis: Alle File- 
namen beginnen mit SHIFT-SPACE. 
Normalerweise werden Filenamen, 
die kürzer als 16 Buchstaben sind, 
mit SHIFT-SPACE aufgefüllt. Findet 
das DOS beim Übertragen des Di- 
rectory nun ein SHIFT-SPACE, denkt 
es, daß der Filename somit zu Ende 
ist und sendet ein Gänsefüßchen an 
den Computer. Nachfolgende Zei- 
chen werden aber nicht ignoriert. 
Will man so gesicherte Files laden, 
dann muß der Befehl »LOAD” 
SHIFT-SPACE Filenamenrest” ‚8« 
lauten. Das Fragezeichen als Joker 
arbeitet in diesem Fall nicht ein- 
wandfrei. 

Der Trick funktioniert nicht nur, 
wenn SHIFT-SPACE der erste Buch- 
stabe ıst. Taucht es allerdings mitten 
im Filenamen auf, dann ist dieser tat- 
sächlich an der entsprechenden 
Stelle zu Ende. Auf diesem Trick be- 
ruhen auch Directories, an deren Fi- 
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lenamen ein »,8,l« angehängt wurde. 
Dort folgen die entsprechenden 
ASCII-Codes einem SHIFT-SPACE. 

Was man mit dem geheimnisvol- 
len Leerzeichen noch so alles an- 
stellen kann, sollten Sie mit einem 
Disk-Monitor mal selbst ausprobie- 
ren. Nur eines sei noch gesagt: Hin- 
ter SHIFT-SPACE im Directory wer- 
den Steuercodes nıcht mehr ın Gra- 
fikzeichen umgesetzt, sondern aus- 
geführt. 


Steuercodes 
im Filenamen 


Manche Leser wollten nach dem 
ersten Teil wissen, was man mit Steu- 
ercodes im Filenamen anfangen 
kann. Nach einem Gänsefüßchen 
oder SHIFT-SPACE ım Filenamen 
werden alle gesendeten Steuerco- 
des, deren ASClII-Werte unter 128 
liegen, ausgeführt. Hier ein paar 
Beispiele: 

— CHR$(8) — REVERS ON 
— CHR$(M9) — HOME 

— CHR$C5) — Weiß 

— CHR$(28) — Rot 

— CHR$(30) — Grün 

— CHR$(@1) — Dunkelblau 
— CHR$(20) — DELETE 

Ein Anwendungsbeispiel: Ist ein 
Filena ur_Ssi Buchstaben 
lang, AR. A wirkungs- 
voll ım Listing verschwinden lassen, 
wenn hinter den sieben Zeichen des 
Filenamens ein SHIFT-SPACE und 
dann acht DELETE-Codes folgen. 

Weiterhin lassen sich im Filena- 
men per Disk-Monitor die beiden 
verbotenen Jokerzeichen »*« und »% 
einbauen. Ihre ASCII-Codes sind 
dezimal 42 und 63. 

So, damit dürften wir jetzt fast alle 
Möglichkeiten der Directory-Mani- 
pulation ausgelotet haben. Und 
gleich damit verbunden eine Bitte: 
Senden Sie uns keinesfalls Program- 
me, die aufdiese oder andere Arten 
geschützt sind. Wir können nur Pro- 
gramme bearbeiten, die LIST-fähig 
sind, sowohl Directory als auch Pro- 
gramm. (bs) 


TE ae 
12 ""&4'’ER . FRG 
11 "DAS MAGAZIN FÜR FRG 
63483 ""COMFUTER-FANS USR 
256 TER SEE 23 = BAER 
68 BLUCES FREE. 


READY. 


Bild 1. So kann ein Directory aussehen, 
das mit den hier beschriebenen 
Verfahren manipuliert wurde. 
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Fortsetzung von Seite 153 


Befehle, um damit optimal arbeiten 
zu können. Zusätzliche Treibersoft- 
ware wird damit überflüssig. 
10. System 

Mit dem System-Package können 
eine Vielzahl von speziellen Eigen- 
schaften des C 64-Systems ange- 
sprochen werden. 
11. Font 

Mit einfachen Befehlen kann der 
Zeichensatz des C 64 geändert, ge- 
laden oder gespeichert werden. Es 
ist möglich, einen speziellen Zei- 
chensatz fest mit einem Comal- 
Programm zu verbinden. Wird die- 
ses Programm gespeichert, so wird 
auch der zugehörige Zeichensatz 
ohne weiteres Zutun automatisch mit 
abgespeichert. Beijedem Laden er- 
nes derart präparlerten Programms 
steht dieser Zeichensatz dann wie- 
der zur Verfügung. 


Fazit 


Die hervorragenden Eigenschaf- 
ten dieser neuen Programmıierspra- 
che lassen auf eine Durchsetzung 
auf breiter Front hoffen. Comal ist 
wie kaum eine andere Sprache dazu 
geeignet, strukturiertes und über- 
sıichtliches Programmieren interak- 
tiv, im Dialog mit dem Computer zu 
lernen. Comal nımmt dem Benutzer 
im Gegensatz zu anderen Sprachen 
so leicht nichts übel, im Gegenteil: 
offensichtliche Fehleingaben wer- 
den vom System automatisch korrı- 
giert. Der eingebaute Syntax-Check 
bereits bei der Eingabe von Pro- 
grammzeilen, ist nicht nur für den 
Anfänger eine große Hilfe. Ausführ- 
liche Fehlermeldungen lassen den 
Benutzer nicht im unklaren, was er 
falsch gemacht hat. Die hohe Aus- 
führungsgeschwindigkeit von Co- 
mal-Programmen ermöglicht An- 
wendungen, die beim C 64 sonst nur 
durch Maschinensprache zu reali- 
sieren sind. Der Komfort bei der 
Programmierung in Comal ist für C 
64-Verhältnisse so enorm, daß man 
sich an einen anderen Computer 
versetzt glaubt. Alle, wirklich alle, 
Unzulänglichkeiten des C 64 sind 
durch Comal 80 behoben. Und 
wenn Jemand doch noch etwas fin- 
den sollte — kein Problem, denn Co- 
mal ıst durch das Package-Konzept 
flexibel genug, vom Anwender fast 
beliebig erweitert werden zu kön- 
nen. Mit einem Wort: Comal ist nicht 
eine, sondern die Programmier- 
sprache für den © 64. 

(S. Bauer/ev) 
Comal80gibt es derzeit nur als Steckmodul für den C 64 bei 


Commodore Data a/s, Bjerrevej 67, DK-8700 Horsens, Däne- 
mark. Preis zirka 1000 DKr. (etwa 300 Mark). 
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lernen mit Computer C 64 





auf den Computer kaum noch 

verzichtet werden. Prognosen sa- 
gen voraus, daß in der nächsten Zu- 
kunft mindestens Jeder zweite Ar- 
beitnehmer an seinen Arbeitsplatz 
mit dem Computer zu tun hat. Die 
Schulen begannen bereits vor einI- 
gen Jahren sich auf diesen Trend 
einzustellen. Informatikkurse wur- 
den angeboten und die ersten Com- 
puter angeschafft. Der Computer 
hielt Einzug in die Schulen. Doch 
vom Unterricht über den Computer 
ist es nicht weit zum Unterricht mit 
dem Computer. 


; n der heutigen Ärbeitswelt kann 


Schule, Computer und 
Lernsoftware 


Die »Geschichte« der Lernsoftwa- 
re begann mit dem Erscheinen der 
Homecomputer. Bald danach ka- 
men die ersten einfachen Vokabel- 
Abfrageprogramme. Diese über- 
nahmen nur das reine Abfragen von 
Vokabeln und ließen in den meisten 
Fällen keine Doppelbedeutung von 
Begriffen zu. Mit dem schnell wach- 
senden Homecomputer-Markt ge- 
wann die Lernsoftware immer mehr 
an Bedeutung. Die Programme wur- 
den verbessert, auf bestimmte An- 
wendergruppen zugeschnitten und 
auf viele Lernbereiche ausgeweitet. 

Heute kann der Lernwillige auf 
ein breit gestreutes Lernsoftwa- 
re-Angebot zurückgreifen (siehe 
auch unsere Marktübersicht in die- 
ser Ausgabe). Viele der Programme 
sind von Ihrer Themenauswahl auf 
Schulbücher zugeschnitten. Sie wer- 
den von den Schülern meist zu Hau- 
se genutzt, um Ihre Leistungen ın 
der Schule zu verbessern. In den 
Schulen selbst wird von dieser Mög- 
lichkeit jedoch seltener Gebrauch 
gemacht. Doch immerhin empfeh- 
len schon einige Lehrer ihren Schü- 
lern, die einen Computer besitzen, 
von dem »Nachhilfelehrer Compu- 
ter« Gebrauch zu machen. 

Zu der Lernsoftware sind in letzter 
Zeit Simulationsprogramme dazuge- 
kommen. Wie schon aus dem Na- 
men ersıchtlich ist, werden hier mit 
dem Computer bestimmte Situatio- 
nen ausgeführt. Auf Großcomputern 
sind Simulationen schon lange ım 
Gebrauch. Sıe werden zum Beispiel 
in der Pilotenausbildung und ım 
Flugzeugbau eingesetzt. Für den C 
64 bewegen sich diese allerdings 
noch auf der spielerischen Ebene, 
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Besser Lernen mit dem Computer 





Die Lernsoftware wird immer ausgefeilter. Doch 
kann sie einen Lehrer ersetzen, oder ist sie nur ein 
Hilfsmittel zum lernen? 


wie zum Beispiel »Flightsimulator Il« 
und »Injured Engine«. 


Der Trend 


Die Eitwicklüng®ter Lernpro- 
gramme in der letzten Zeit weist ei- 
nen deutlichen Weg. Immer besser 
durchdachte und für bestimmte An- 
wendergruppen ausgelegte Pro- 
gramme erscheinen. Die grafischen 
Fähigkeiten des Computers werden 
gezielt zur Unterstützung des Lern- 


ie verschiedensten Arten von 
D Kursen werden angeboten. 

Diese reichen von Büchern bis 
hin zu Computer-Camps. Eine allge- 
meingültige Antwort, welche Art 
von Kursen besonders geeignet ist, 
kann nicht so einfach gegeben wer- 
den. 





Die Bücher 
Im deutschsprachigen Raum wird 
eine nahezu unüberschaubare 


Menge von Büchern zum Thema 
Computer angeboten. Viele hiervon 
verstehen sich als Lehrbücher. Bei 
Büchern für Anfänger wird meist an- 
hand von kleinen Beispielprogram- 
men auf bestimmte Fähigkeiten und 
Eigenschaften des jeweiligen Com- 
puters eingegangen. Äber leider 





erfolges eingesetzt. So lassen Voka- 
belprogramme, wie »Superlear- 
ning« verschiedene Anfrageformen 
zu, die vom Lückentext-Diktat bıs hin 
zu Silbenrätseln reichen. 

Man kann in puncto Lernsoftware 
optimistisch in die Zukunft sehen, 
dann das Lernen wird, Dank dem 
Computer, immer mehr zum Ver- 
gnügen. Nur eines, das kann der 
Computer Ihnen nicht abnehmen. 
Lernen, müssen Sie immer noch 
selbst. (19) 


Kurse: Einstieg in die 


Der Weg, seinen Computer kennenzulernen, ist 


laßt die Qualität vieler dieser Beı- 
spiele oft zu Wünschen übrıg. Der 
Erfolg, aufdiesem Weg den Compu- 
ter kennenzulernen, ist oft gleich 
Null. Für Fortgeschrittene finden 
sich im Buchangebot allerdings eini- 
ge gute Nachschlagwerke. 
Computerkurs auf Diskette 

Computerkurse auf Diskette ıst ei- 
ne bisher recht wenig genutzte Art, 
den Computer kennenzulernen. 
Uns sind nur dreideutsche Anbieter 
bekannt, die solche Kurse für Anfän- 
ger anbieten. Sie sind gut geeignet, 
um den ersten Kontakt mit dem 
Computer herzustellen. | 
Computerunterricht an Schulen 

Seit einigen Jahren wırd an den 
schulen Informatik unterrichtet. 
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Roboter selbst gebaut 


Mit einem Roboterbausatz können Sie sich jetzt Ihre 
eigenen Roboter bauen. Wie Sie dies machen, zeigt 
unser Bericht. 





je in der Industrie eingesetzten 
Roboter sind oft sehrteuer und 
ihre Programmierung ist meist 





schwer zu verstehen. Fischertech- 
nik Computing bietet jetzt einen Ro- 


boterbausatz für verschiedene 
Heimcomputer an. Anhand ihres 
Aufbaus und ihrer Programmierung 
lernt man ihre »großen Brüder« in 
der Industrie zu verstehen. Öffnet 
man die Verpackung, bekommtman 
zuerst dıe von normalen Fischer- 
technik-Baukästen bekannten Qua- 
derbausteine zu Gesicht. Aus die- 
sen Einzelteilen setzen sich im we- 
sentlichen die verschiedenen Gerä- 
te zusammen, die man aus diesem 


Welt der Computer? 


Kasten zusammenbauen kann. Zwei 
Motoren bilden dabeı das Herz- 
stück der einzelnen Roboter. 

Weiterhin benötigt man ein Steu- 
erinterface für den C 64, dem auch 
die Programmaiskette beigefügt ist. 
Für das Interface braucht man auf- 
grund des großen Strombedarfs 
noch ein Netzteil, das das Interface 
mit der nötigen Zusatzspannung ver- 
sorgt. Die beiligende Anleitung lie- 
fert Anregungen für den Bau von 
zehn verschiedenen Geräten, die al- 
le über den Computer angesteuert 
werden. Das sind unter anderem eı- 
ne Ampelanlage, eine Sortieranla- 
ge, ein Sortier-Roboter, ein Roboter, 
der die Bausteine der Türme von 
Hanoi transportiert, ein Teach-in- 
Robot oder ein Plotter. 

Der Aufbau muß ın der Anleitung 
anhand von Bildern nachvollzogen 
werden, was Jedoch manchmal et- 
was Phantasie und ein gutes Sehver- 
mögen erf =y. vor al- 
lem daran, daß die einzelnen Auf- 
bauschritte teilweise zu grob unter- 
teiltsind. Hatman das Gerätanhand 
des Schaltplans verdrahtet und das 
Interface angeschlossen, so muß 
nur noch das entsprechende Pro- 
gramm in den Computer geladen 





weit. Eine Hilfe sollen hier Computerkurse bieten. 


Dieser Unterricht bietet einige gro- 
Re Vorteile, die bei den bisher auf- 
geführten Kursen fehlen. Haupt- 
sächlich ist dies der direkte Kontakt 
zu jemanden, der bei auftretenden 
Problemen helfen kann und dem 
. Fragen gestellt werden können. 
Doch zur Zeit gibt es an einigen 
Schulen noch Probleme. Zum einen 
mangelt es an Fachkräften, die In- 
 formatik unterrichten können. Zum 
anderen sind dies fehlende Geräte. 
lern nur fünf Computer zur Verfü- 
‚gung stehen, muß der Lernerfolg 
stark bezweifelt werden. 

Computer-Ccamps | 

_ Mit dem Computer Ferien ma- 
chen, ist die Devise der Computer- 


Camps. Uber einen Zeitraum von 
ein bis zwei Wochen wird der erste 
Kontakt zum Computer hergestellt. 
Unter fachlicher Anleitung wird 
man mit dem Computer vertraut ge- 
macht und bis zur Erstellung eige- 
ner Programme geführt, Computer- 
Camps sind auf jugendliche Com- 
puter-Neulinge ausgelegt. Ein Com- 
puter-Camp für Erwachsene ist uns 
nıcht bekannt. 
Fazit 

Den Computer-Kurs, der fürjeden 
gleichermaßen geeignet ist, gibt es 
zur Zeit noch nicht. Aus dem vorhan- 
denen Angebot muß man sich das 
heraussuchen, was einem für sich 
persönlich am geeignetsten er- 
scheint. (19) 


werden, damit der Roboter »Leben« 
eingehaucht bekommt. Die dazuge- 
hörige Software ist in Basıc ge- 
schrieben und baut auf einem Ma- 
schinenprogramm — für die Bedie- 
nung des Interface — auf. Die Pro- 
grammierung ist aber sehr einfach, 
so daß man sıch schnell mit ıhr ver- 
traut machen kann. 

Natürlich ist es auch möglich eige- 
ne Geräte zu entwerfen, zu bauen 
und deren Ansteuerung zu pro- 
grammieren. Sollten dazu die vor- 
handenen Bausteine nıcht ausrel- 
chen, so kann man in Ergänzung auf 
normale Fischertechnikkästen zu- 
rückgreifen. 

Wie istesaber um den pädagogı- 
schen Wert dieser Bausätze bestellt! 
Nun, gerade dadurch, daß man die 
einzelnen Geräte selbst zusammen- 
bauen muß, fällt es einem leicht, die 
Arbeitsweise zu verstehen. So ist es 
zum Beispiel bei der Bewegungs- 
steuerung nicht nur mit dem einfa- 
chen Ein-/ Ausschalten der Motoren 
getan ıst. Schließlich muß sıch der 
Roboter auch »Orientieren« können, 
was über eingebaute Schalter oder 
Potentiometer möglıch ıst. Das Inter- 
face wertet diese Signale aus und 
sendet sie an den Computer. Dieser 
kann dann, wiederum über das an- 
geschlossene Interface, entspre- 
chend reagieren. 

Wir hatten das Gerät aufgebaut, 
das die Bausteine für die Türme von 
Hanoı bearbeitet. Mit Hilfe eines Po- 
tentiometers ın der Längsachse 
kann der © 64 die Position abfragen, 
damit ist eine mehr oder weniger 
exakte Positionierung des Roboters 
möglıch. Leichte Ungenauigkeiten 
machen sıch bei diesem Roboter 
nicht allzu negativ bemerkbar. Beim 
Plotter allerdings können diese Un- 
genauigkeiten zu Abweichungen 
führen, die nicht mehr zu akzeptie- 
ren sind. 

Dieser Bausatz wurde hauptsäch- 
lich für diejenigen zusammenge- 
stellt, die mitihrem C 64 in die Robo- 
terprogrammierung hineinschnüf- 
feln wollen. Mit einem Gesamtpreis 
von zirka 600 Mark für Grundkasten, 
Interface und Netzteil, dürfte der Ro- 
boterbausatz wohl deutlich über 
demliegen, was eın privater Änwen- 
der für so ein »Spielzeug« ausgeben 
kann. Sinnvoll könnten diese Kästen 
für den Informatikunterricht der 
Schulen sein. Hier wäre allerdings 
das Engagement der Lehrer ge- 
fragt, die diesen Unterricht sinnvoll 
aufbauen müssen. 


(Christoph Sauer/rg) 


Info: Fischer-Werke, Artur Fischer GmbH & Co. KG, Wein- 
halde 16—18, 7244 Tumlingen/Waldachtal. 
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Marktübersicht: Lernsoftware 


Über 130 verschiedene Lern rogramme sind in Deutschland erhältlich. 
Diese Marktübersicht bietet Ihnen eine Auswahl- und Entscheidungshilfe. 


as Lernsoftware-Ange- 

bot ın Deutschland er- 
streckt sıch hauptsächlich 
aufden schulischen Bereich. 
Die Produkt-Palette reicht 
von Vokabel-Lernprogram- 
men bis hin zu Programmen 
über Enzymkinetik. Viele 
dieser Programme sind auf 
bestimmte Schulstufen und 
-klassen ausgelegt. Unsere 


ie 
Probelektion a) — 
Esperanto b) Ja 
a BEL Bi 
Italienisch Grundkurs a) — 
b) Ja 


SPRACHEN 
en ll 


Marktübersicht zeigt Ihnen 
die wichtigsten Merkmale 
der Programme und bietet 
so eine Auswahl- und Ent- 
scheidungshilfe für den Kauf. 

Alle in der Marktübersicht 
angeführten Daten beruhen 
auf Herstellerangaben. Die 
Marktübersicht erhebt kei- 
nen Änspruch auf Vollstän- 
digkeit. (rg/og) 


b) ” 


ee A | 


Managemant Englisch Wirtschafts- 
englisch 


Französisch a) — B+K 
Grundkurs > Fr 


Französisch 
Aufbaukurs FE 5 


net 


Vokabeltrainer ab 18 a) — 
b) — 
b) — 





ANBIETER: 
a Ariola-Soft 

b Data Becker 

c Ernst-Klett-Verlag 
d Hagemann 

e Haller-Verlag 

f Happy-Software 
g Homesoft 

h IPPL-Kiel 

i Langenscheid 


A = Arbeitsmappe 

B = Buch 

H = Begleitheft 

K = Audiokassette 

P = Programmier- 
block 














j Max-Hueber-erlag 

k Ravensburger 

l SM Soft-Learning 

msSybex-erlag 

n Tender Art 

o Unterrichtsmethoden 
Bernhard Hoppius 

p Westermann-Software 

Anmerkung: 

*) Systembasis benötigt 















Vokabel-Lern- a) — 49,90 
Programm b) Ja 


jeweils 49,— 


Irer 


Vokabeltraining, unregelmäßi- a) ab 3. Lern). 48, — 
englisch ge Verben b) Ja 58.— 
Vokabeltraining, a) ab 3. Lern). 48. — 
französisch b) Ja 58,— 
Vokabeltraining, a) ab 3. pe 48,.— 
italienisch b) — 58, — 
Vokabeltraining, a) ab 3. Lern). 

spanisch b) — 

Rechtschreiben 7—14 a) ab 3.Kl. 

mit Köpfchen b) — 

Lateinische a) — 

Deklination b) — 

Lateinische a) — 

Konjuationen b) — 





jeweils = 







Vokabel-Trainer/ bis 14 a) — 
Vokabel-Writer b) — 
Vokabel-Trainer mit a) — 
Wortschatz b) — 
»Englisch G2« 
Englisch ab 18 en .- 
b) en 
EEE a; 


ab 18 a) — 
b) Ja 
tet für eu ab 18 a) — 
b) Ja 
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22 = 
Wortschatz-Train ' ab7 a)ab5.Kl. 
Italienisch b) Ja 
Wortschatz-Trainer ab7 a)ab5.Kl. 
Spanisch b) Ja 
Wortschatz-Train ab 7 a) ab5.Kl. 
Englisch b) Ja 
Wortschatz-Trainer 
Französisch ab7 a) ab 5. Kl. 
b) Ja 
Wortschatz-Trainer ab7 a)ab5.Kl. 
Latein I b) Ja 
Wortschatz Trainer ab 7 a)ab$.Kl. 
Latein II b) Ja 
Wortschatz-Trainer ab 7 a)ab5.Kl. 
unregelmäßige b) Ja 
Verben Latein 
Rechtschreibung a) ab 5. Kl. ar +M 
l bis 3 b) Ja 
en 

Fremdwörtertraining Fremdwörter- a)ab 6.Kl. 1 

Recht- b) Ja 

schreibung 
Englisch-Nachhilfe 1 typische ab 12 a) ab 7. Kl. Bi 49,50 

Fehler b) Ja 
ara: Dozan KB DE EEE u — 





"A= 
B= 
H= 
K= 
P= 




















gesamtes Programm 
der IPPL, Kiel 


; Sesam, öffne dich! Engl./franz., a) 1./2. Lernj. 
wichtige b)— 
Vokabeln 


Wörter in Aktion Engl./franz., 


Recht- 
schreibung 


GER Om 
Wordmatch Englisch a)ab2./3. Lern). 

b) — 

b) — 


Teste Deinen Wort- Englisch a) Änfänger/ 
schatz l und 2 Fortge- 
schrittene 
Wörterrennen Englisch, a) Änfänger 
mit System Grundwort- b)— 
schatz, 
Hauptwörter 


Vorsicht, Vokabeln Engl./franz a) Anfänger 
greifen an Latein b) — 
b)- —_ 
Ei» —_ 
Sturm auf die Burg Engl./franz. a) 1./2. Lern). 
b) — 
No siempre sera asi Spanisch ab 18 a) — 
b) Ja 
Ya viendrau tiempos Spanisch ab 18 a) — 
mejores b) Ja 


In Europa unterwegs Englisch, ab 18 a) — 
französisch, b) Ja 
italienisch, 
spanisch 
Schwedisch, ab 18 a) — 
finnisch, b) Ja 
norwegisch, 
dänisch 
Take it easy Englisch a) 
bee ER | ne HE Kine | TREE 1 ED 
Ks LE EB Fu ER LEE LEE B: 
b) Ja 
Iran u Hensel ne TE: 700 ZEN VER DER Ka 
b) Ja 
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In Skandinavien 
unterwegs 
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Programmname Anbieter Lernstoff Altersgruppe| a) Schultyp und 
in Klasse 
Jahren b) Erwachsenen- 
bildung 


Französisch a) — | 

b) Ja 
Prima detto che fatto Italienisch ab 18 a) — 
b) Ja 
Probelektion ab 14 a) — 

Esperanto | b)Ja B+K 

Spanisch Grundkurs a) — B+K 
b) Ja 

Italienisch Grundkurs a) — B+K 
b) Ja 

Spanisch Aufbaukurs a) — 

b) Ja 

Italienisch Aufbaukurs a) — B+K 
b) Ja 

Englisch Grundkurs a) — B+K 
b) Ja 

KB 









der Lek- 
tionen 








WI 
ir 


Englisch Aufbaukurs | 1 ab 14 a) — 198, — 


b) Ja 


Management Englisch Wirtschafts- a) — B+K 
englisch b) Ja 

Französisch a) — B+K 
Grundkurs b) Ja 
Französisch a) — B+K 
Aufbaukurs b) Ja 
Englischtrainer 64 n Übersetzen allg. a) Allgemein 

b) Ja 
Italienischtrainer 64 n Übersetzen allg. a) Allgemein 

b) Ja 
Spanischtrainer 64 Übersetzen allg. | a) Allgemein 

b) Ja 
Lateintrainer 64 Übersetzen allg. a) Allgemein l 

GYERB) OnLINgeee: 


Rechtschreiben mit Auslautver- 7—14 a) Grund- +AÄ 
Köpfchen I härtung schule, Sek I 
b) — 
Rechtschreiben mit Auslautver- 7—14 a) Grund- +A 
Köpfchen II härtung 


schule, Sek 1 
Rechtschreiben mit Auslautver- 7—14 a) Grund- 
Köpfchen III härtung schule, Sek | 


Rechtschreibung 7—10 
schule, 3./4. 


Englische Grammatik a) Sek I Teil 1, D 

b) Ja Teil25, D 
Französische j 
Grammatik 


Spanische Grammatik a)SekI& 5 B a,b Teil 1,D 59,— 
Sek II | Teil 2/3 u. 
b) Ja 4/5,D jeweils 25,— 
Italienische a) Sek I/II B a,b Teil 1/2, D 
Grammatik b) Ja Teil 3/4, D 


Englische Vokabeln a) Sek I/II 







79, — 
Arbeitsmappe 








79— 
Ärbeismappe 

















Arbeitsmappe 
39,50 





49,— 


jeweils 19,— 











49,— 
















programm, 
Datenteile 
Rahmen- 


programm, 
Datenteile 






jeweils 25,— 
49,— 












Französische 
Vokabeln 


a) Sek I/II 
b) Ja 





jeweils 25. — 
COMPUTERKURSE 


Computer- Computerkurs ab 18 a) — B+K zusammen 
Selbstlernkurs für Einsteiger b) Ja 99,— 
Computer- Computerkurs ab 18 a) — 5 B+P zusammen 
Selbstlernkurs für Einsteiger b) Ja 99, — 
Sag’s der k Logo a)k.A. 1 k.A. k.A. 79,— 
Schildkröte b) k.A. 

Kindercomp k a)KA l | KA. k.A. 

b)k.A. 
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Fratzenschneider Computer- 
befehle und 
Konzentration 


Commodore 64 
Basic-Kurs 


Commodore 64 
Assembler-Kurs 


Commodore 64 
Basic-Abenteuer 


le 1-4. Kl. 


er Mathemat | | 7-10 | 
b) — 
Bruchrechnen einfach Bruchrechnen 10—14 a)ab 6. Kl. 48,— 
b) — 58,— 
Algebra — Hausauf- a) 5—ll. Kl. 99,— 
gaben leichtgemacht b) — 
Grundrechenarten, a) — 38,50 
schriftlich 2 
Grundrechenarten, Kopfrechnen a) — 38,50 
schriftlich b) — 
Grundrechenarten a) — 
b) — 
Bruchrechnen I a) — 
> _ 
Bruchrechnen II 
I = 
Bruchrechnen a) — 
b) — 
Prozentrechnen I a) — 
b) — 
Prozentrechnen II JaeR Omi 
b) — 
bu BER 1 SE KAHN 50 BE 
b)— 


7 Grundschn- 





Prozent- und bis 14 a) — 
Zinsrechnen b) — 
Funktionen bis 16 a) — 34,50 
b) — 45.— 
Kurvendiskussion a) — 1 
b) — 
Springteufel k Bruchrechnen ab 7 a)k.A. k.A. k.A. 
b) Ja 
Bilderregen k Zahlen 5-9 a)k.A. k.A. k.A. 
b) k.A. 
b) — 
Die Rechentafel — ab 13 a) Grundschu- 
Bruchrechnen le, Sek I/II 
b) Ja 
Geometrie 7-10 a) Grundschu- 
3./4. Schuljahr le 3./4. Kl. 
b) — 
i bis 7 a) Grund- 
schule 1. Kl. 
b)— 
Add. & Subtr. 7—10 a) Grundschu- 
2./3. Schuljahr le 2./3. Kl. 
b) — 
Mult. & Div. 7—10 a) Grundschu- 
2./3. Schuljahr le 2./3. Kl. 
b) — 
Add. & Subtr. a) Grund- 
3./4. Schuljahr schule 3./4. 
Kl., Sek I 
b) — 
a) Grund- 1 
schule 3./4. 
Kl, SekI, OS 
b) — 
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Mult. & Div. 
3./4. Schuljahr 





Lernen mit Computer | C 64 


Anbieter nen a) Schultyp und 
Klasse 
Be b) Erwachsenen- 
bildung 


Ve a) Sek II/I 
b) Ja 
Prozentrechnung a) Sek II/I 
b) Ja 
Zinsrechnung a) Sek /II 
b) Ja 
Bruchrechnung I a) Sek I 
b) Ja 
Bruchrechnung Il ab 10 a) Sek I/II 
b) Ja 
Schlußrechnung a) Sek I/II a,b 
b) Ja 
Prozentrechnung a) Sek I/II 49,— 
b) Ja 


Zinsrechnung a) Sek I/II 
b) Ja 
MUSIK 
3001 Sound Odyssee a Grundlagen a) — 
Musik b) Ja 









der Lek- 
tionen 



















NATURWISSENSCHAFTEN 


ME Ei 


AR OnıLngese: 
| a) Sek II 
b) — 
a a) Sek II 
b) — 
Freier Fall Physik a) — 
> — 
Beschleunigung 
un = 
Widerstand I a) — 
> — 
Lichtbrechung 
_ _ 
Evolution Biologie a) — 
b) — 
Molekularkinetik: Biologie a) — 38,50 
DNA/DNS b) — 49,— 
Periodic table Chemie a) 7.-12. Kl. 18,— 
ofthe elements b) Ja 28,— 


Physik Mechanik, Wär- ab 7 
melehre, Elektro- 
nik, Akustik, Opti 


0 EEE EEE EEE RR 
Momeuzine ja | Tu josne jı [8 IA [Do [og 
Schreibmaschinenkum [a | pe Tome jı [5 ja [np | gm] 


CNCTIX, CNC- Metallberufe a) Berufsschule 760, Bu 
b) Ja 
Drehen 
Schreibmaschinenkurs 10-Finger- a) ab2.Kl. x +M 120,— 
Blindschreiben b) Ja (* 49,50 
Union Pacific Wirtschaftl. Zu- a)Kk.A. 
sammenhänge b) Ja 
Die Spürnasen logisches a) K.A. 
Denken b) Ja 
Geschichtenschreiber Sprache ab 8 a)k.A.,b)k..A. Fun k.A. KA. 


Streng geheim Daten- a) K.A., b)K.A. K.A. K.A. 
verarbeitung 
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Chem. Gleichgewicht 
— Haber-Bosch- 
Verfahren 


a)Sek II 
b) — 


Genkartierung 
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Wettbewerbe 





n den letzten Wochen und 
Monaten waren sowohl für 
unsere Redaktionsassistenz 
als auch für uns Redakteure 
die neuesten Teilnehmer- 
zahlen immer wieder Grund 
zum Staunen. Daß es den 
meisten nicht nur um die aus- 
gesetzten Preise gegangen 
ist, zeigen die fast ausnahms- 
los vollständig ausgefüllten 
Fragebögen. Die Antworten 
auf den Fragebögen waren 
ausführlich, ehrlich und 
manchmal auch konstruktiv- 
kritisch. Einige Leser sende- 
ten uns sogar, zusammen mit 
dem Fragebogen, seitenlan- 
ge Briefe ein. Dies ist für uns 
vor allem ein Zeichen dafür, 
daß die Mehrzahl unserer 
Leser aktiv an der Gestal- 
tung der 64er teilnehmen 
möchte. Und das wird be- 
rücksichtigt, denn wir neh- 
men Ihre Meinung ernst. In 
der größten Umfrageaktio- 
nen seit Bestehen der 64’er 
wurden alle Ihre Wünsche, 
Vorstellungen und Änregun- 
gen erfaßt und statistisch 
ausgewertet. Es ist unvor- 
stellbar, welche Datenmen- 
gen dabei zusammenge- 
kommen sind. Die Endaus- 
wertung ist ein über 200 Sei- 
ten (DIN A 3) starkes Doku- 
ment und mußte von einem 
Cyber-Großcomputer er- 
rechnet werden. Wichtigste 
Erkenntnis daraus ist, daß es 
den typischen 64'er-Leser 
nicht gibt. Jeder unserer Le- 
ser verwendet den Compu- 
ter auf seine ganz individuel- 
le Weise. Der Anteil derer, 
die mit dem Computer mehr 
als nur spielen wollen, ist da- 
bei außerordentlich hoch. 
Wir wollen uns aber nicht in 
Zahlen verlieren. Eines ist 
aufjeden Fall sicher: Alle Ih- 
re Vorstellungen darüber, 
wie die 64’er in Zukunft aus- 
sehen soll, werden gewis- 
senhaft geprüft. Seien Sie ge- 
spannt, vielleicht erkennen 
Sie Ihre Meinung in den 
nächsten Ausgaben wieder. 
Einen Wunsch vieler Leser 
können wir bereits in dieser 
Ausgabe erfüllen: Mehr 
Hardware-Selbstbauanlei- 
tungen. Und damit auch die 
Leser, die nicht in der Lage 
sind, sich Platinen selbst zu 
bauen, in den Besitz unserer 
Veröffentlichungen kom- 
men, gleich noch eine Neue- 
rung. Mit dieser Ausgabe 
startet der 64’er-Hardware- 
Bestellservice. 
Aber nun wollen wir end- 
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Bild. Die Ziehung der Gewinner: Unsere Glücksfee Christiane war sich ihrer Verantwortung bewußt 


Sie haben gewonnen! 


Das Interesse an unserem Umfra 





ge-Preisausschreiben der 


Ausgabe 6/85 sprengte alle Grenzen — mehr als 
12000 Leser beteiligten sich. Gewonnen haben eigentlich 


alle, obwohl nicht jeder einen PC 10 mit 


nach Hause nehmen konnte. 


lich zu dem Punkt kommen, 
auf den Sie sicher schon lan- 
ge gewartet haben: der Be- 
kanntgabe der glücklichen 
Gewinner der Sachpreise. 
Unserer Glücksfee Christia- 
ne zitterten etwas die Hände 
(Bild), als sie den Gewinner 
des über 5500 Mark teuren 
PC 10 zog. 
Der Gewinner des PC 10 ist: 
Herr Martin Romisch, Frank- 
furt 
Die Diskettenlaufwerke gewannen: 
Brigitte Witzer, Ratingen; 
Georg Hüttinger, Stinglloh; 
Werner Krüger, Blaustein- 
Arnegg; Karsten Wenzel, 
Berlin; Rolf Beutner, Bohmte: 
Bernd Kattein, Sparneck; 
Holger Pietsch, Wunstorf: 
Hans-Peter Labude, Drei- 
eich; Hans-Herrmann Arndt, 
Holzminden; Roland Rohe, 
Dortmund. 

Je einen Buchgutschein im Wert 
von 50 Mark erhalten: 
Detlef Metze, Andreas 
Schildbach, Soren Thade Pe- 


tersen, Peter Hegelbach, 
Walter Stemmer, Peter 
Ackermann, Rolf Eckhardt, 
Christoph Balzer, Thomas 
Löper, Günter Meißner, An- 
dreas Konrad, Werner Mey- 
er, Christian Ruhl, W.L.M. 
Vermaegle, Christian Deis- 
singer, Thomas Schäfer, 
Bernd Sauer, Peter Siegle, 
Daniel Reinert, Oliver Her- 
tel, Udo Niehoegen, Volkmar 
Koch, Sıegfried Pauer, Jens 
Thöming, Norbert Büchner, 
Bernd Bügner, Andre Kur- 
zweg, Michael Weidel, Chri- 
stian Meller, Georg Isak, 
Dirk Treppe, Zenek Prze- 
chacki, Hartmut Schulz, 
Sven-Eric Jordt, Helmut 
Nickl, Andreas Greß, Elmar 
Kellner, Christian Badıry, 
Christian Patt, Matthias Ei- 
ser, Karl Wilhelm Vieten, 


Thorsten Müller, Thomas 
Meyer, Bernd Tophoven, 
Adolf Obenaus, Martin 


Horstkötter, Alexander Hild, 
Oliver Herrman, Herbert 


Niebuhr, Michael Spannuth. 
Alle Gewinner werden in- 
nerhalb der nächsten Tage 
schriftlich benachrichtigt. 
Den Gewinner des Haupt- 
preises laden wir zu uns, 
nach Haar bei München in 
die Redaktion ein, um ihm 
seinen Hauptgewinn zu 
überreichen. 

Herzlichen Glückwunsch 
allen Gewinnern. Aber auch 
ein ganz großes Dankeschön 
an alle die mitgemacht ha- 
ben. Auch Ihre Teilnahme 
war nicht umsonst, denn das 
B4’er ıst ein Magazin der Le- 
ser, und damit aufdem richti- 
gen Weg. So gesehen gibtes 
eigentlich nur Gewinner! 

Ihre 64’er Redaktion 


Wir danken der Firma Com- 
modore, Frankfurt, für die 
freundliche Stiftung des PC 
10 und der Diskettenlaufwer- 
ke sowie dem Markt & Tech- 
nik-Buchverlag, für dıe Buch- 
preise. (aw) 
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C 64 


rogrammieren ist eine 

Faszination ganz beson- 
derer Art. Doch immer wie- 
der zeigt es sich, daß viele 
Leser Probleme haben, sich 
eine entsprechende Aufga- 
be zu stellen. Man freut sıch 
regelrecht, wenn jemand zu 
einem kommt und fragt: »Ich 
habe ein Problem. Kann 
Dein Computer das lösen? 
Na klar, denken wir, und 
schon ist man für einige Zeit 
von der Umwelt abgeschnit- 
ten, unterbrochen lediglich 
von einigen lebenserhalten- 
den Maßnahmen wie Essen, 
Trinken etc. 

Una wenn das Problem 
nicht allzu anspruchsvoll ist, 
kommen wır eines Tages mit 
einem strahlenden Gesicht 
und der Lösung ausunserem 
Einsiedlerdasein zurück und 
präsentieren unsere geisti- 
ge Leistung erwartungsvoll 
einem ewig kritischen Publı- 
kum, das keine Ahnung hat 
von den Mühen, die unser 
Programmierobjekt entste- 
hen ließen. Doch wır wissen 





Programmier- 





Wettbewerb 





»Blockgrafik« 


1000 Mark winken bei diesem Wett- 

bewerb. Dabei ist die Aufgabe so ein- 
fach gestellt, daß wirklich jeder mit- 
machen kann, auch wenn er nur mini- 
male Programmierkenntnisse besitzt. 


wertvoll jedes eingesandte 
Listing ist. Natürlich treffen 
wir eine Auswahl, wenn es 
auf die Suche nach einem 
veröffentlichbaren Pro- 
gramm geht. Doch mitjedem 
Programm, das Sie schrei- 
ben, gewinnen Sıe. Und da- 
mit auch eine Aufgabe da ıst, 
denken wir uns eine für Sie 
aus. Diesmal ist die Aufgabe 


Die Aufgabe 

Bilder ın Blockgrafik zu er- 
stellen, verlangt mehr Krea- 
tıvität als Programmıierwis- 
sen. Andersalsbeiderhoch- 
auflösenden (HiRes) Grafik 
brauchen Sıe weder den 
Grafik-Kurs gelesen zu ha- 
ben noch andere, schmerı- 
ge Literatur zu verarbeiten. 
Das einzige, das Sıe sollen, 


Wettbewerbe 


auf dem Tastenfeld Ihres 
Computers zu spielen, bis 
ein wirklich schönes oder in- 
teressantes Bild heraus- 
kommt. Ein paar PRINT-Zeı- 
len, gespickt mit Grafiksym- 
bolen und Farbe, garniert 
vielleicht mit etwas Text, 
reicht schon. Wollen Sie 
noch etwas mehr tun, können 
Sie noch Bewegung mit ins 
Spiel bringen. Sprites oder 
andere HiRes-Spielchen 
sind nicht erlaubt. Und über- 
treiben Sie bitte nıcht beider 
Länge des Programms. 
Wenn Sie Ihr Programm bıs 
zum 30. Oktober 1985 einge- 
schickt haben, haben Sie al- 
le Chancen, die 1000 Mark 
zu gewinnen, die auf den Sıe- 
ger unseres Blockgrafik- 
Wettbewerbs warten. 
Schicken Sie Ihr Programm 


an 


Markt & Technik Verlag 
Aktiengesellschaft, 
b4’er Redaktion, 
Stichwort »Blockgrafik«, 


Hans-Pinsel-Str. 2, 8013 Haar 


aus eigener Erfahrung, wie besonders einfach. ist, mit den Grafiksymbolen bei München [] 


ir 


Machen Sie Ihr Hobby zum Beruf! 


Wir sind ein moderner Fachverlag mit rund 260 Mitarbeitern in Deutschland mit Niederlassungen in den USA und 
in der Schweiz. Unser Metier sind Fachzeitschriften und Bücher aus den Bereichen Elektronik und Computer sowie 
Software für Personal- und Heim-Computer. Zur Verstärkung des Redaktionsteams der Fachzeitschrift »64’er« 
suchen wir einen 


Commodore 64-Spezialisten 


als Fachredakteur 


Was Sie mitbringen müssen: Erfahrungen im Umgang mit dem Commodore 64 sowie der dazugehörigen Hardware 
und Software. An Programmiersprachen sollten Sie zumindest Basic und Assembler beherrschen. Vertrautheit mit 
den gängigsten Standardprogrammen wie Textverarbeitungs-, Datenbank-, Tabellenkalkulations-, Grafik- und Kom- 
munikationssoftware wird vorausgesetzt. 


Zu Ihrem Aufgabenbereich gehört das Testen von neuer Hard- und Software, von Listings unserer Leser sowie das 
Schreiben von fachspezifischen Berichten. Das Aufspüren und Recherchieren von Neuigkeiten in der Branche und 
die Kontaktpflege zu Herstellern ist ebenso Teil Ihrer Tätigkeit wie der Besuch von Messen im In- und Ausland. Ihre 
wichtigste Aufgabe ist, für unsere Leser verständliche und informative Artikel zu schreiben. 


Diese Stelle ist für Praktiker ebenso geeignet wie für Schulabgänger mit entsprechender Computererfahrung. 


Was wir bieten, ist ein ausgezeichnetes Betriebsklima, die Arbeit in einem jungen, dynamischen Team, leistungsge- 
rechte Bezahlung, die üblichen Sozialleistungen, eine betriebliche Altersversorgung sowie den hohen Freizeitwert 
des Großraums München. 


Ihre schriftliche Bewerbung mit den üblichen Unterlagen richten Sie bitte an Michael Scharfenberger, der Ihnen 
auch für erste Kontaktgespräche telefonisch (089/46 13-122) zur Verfügung steht. 


Markt&lechnik 


Verlag Aktiengesellschaft 


Hans-Pinsel-Str. 2, 8013 Haar bei München 
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Wettbewerbe 





Anwendung des Mo- 
nats, was ist das? Nun, Sie 
haben einen Commodore 
64 oder einen VC 20 und 
versuchen diesen irgend- 
wie sinnvoll einzusetzen. 
Unter einer sinnvollen 
Anwendung versteht die 
Bb4’er Redaktion alles, was 
beispielsweise Program- 
meim häuslichen Bereich 
bewirken. Es kann sich 
dabei um die Berech- 
nung der Benzinkosten 
für Ihren Wagen handeln, 


um ein eigenes Textverar- 
beitungsprogramm ge- 
hen, sıch um die Verwal- 
tung Ihrer Tiefkühltruhe 
drehen oder ein ausge- 
klügeltes Telefon- und 
Adreßregister sein. 
Setzen Sıe Ihren VC 
20/C 64 mehr oder weni- 
ger beruflich ein? Auch, 
oder vor allem, das ist ei- 
ne sinnvolle Anwendung. 
Sie führen die Lohn- und 
Gehaltsabrechnung, Ihre 
Lagerverwaltung, die Be- 


stellungen auf einem 

Commodore-Heimcom- 
puter durch? So spezielle 
Anwendungen wie die 
Berechnung der Statik 
von selbstgezimmerten 
Regalen, von Klimadia- 
grammen oder Vokabel- 
lernprogrammen für den 
Schulunterricht oder die 
Zinsberechnung bei Kre- 
diten sind ebenfalls The- 
men, die mehr als konkur- 
renzfähig sind. 


C 64/VC 20 





Wir suchen die Anwendung des Monats 


Uns ist die Anwendung 
des Monats 


500 Mark 


wert. 

Schreiben Sie uns, was 
Sie mit Ihrem Computer 
machen: 

Redaktion 64’er, Aktıon: 
Anwendung des Monats, 
Hans-Pinsel-Str. 2, 8013 

Haar bei München. 





Diese nicht einmalige Gele- 
genheit sollten Sie nutzen. Wie? 
Schicken Sie uns Ihr bestes, 
selbst erstelltes Programm. Beı 
der Art des Programms sind wır 
nicht wählerisch. 

Sie haben ein sehr gutes 
(Schieß- Knobel- Denk- Action-, 
Abenteuer-)JSpiel geschrieben: 
einschicken! 

Sie verfügen über ein kKomforta- 
bles  Disketten-Kopier-(Sortier) 
Programm mit einigen außerge- 
wöhnlichen Leistungsmerkma- 


len: einschicken! 


GIER ONLINE 


Sie haben das Basic um einige 
sinnvolle Befehle erweitert: ein- 
schicken! 

Sie arbeiten mit einem selbster- 
stellten Textverarbeitungspro- 
gramm, einer eigenen Tabellen- 
kalkulation, einem semiprofes- 
sıonellen Datenverwaltungspro- 
gramm: einschicken! 

Sie zeichnen und konstruieren 
mit einem selbsterstellten Pro- 
gramm in hochauflösender Gra- 
fik: einschicken! 

Wir freuen uns über Jeden Bei- 
trag und honorieren mit bis zu 


Mark 


























Aus den besten Listings, die 
veröffentlicht werden, sucht die 
b4’er-Redaktion einmal ım Monat 
das»Listing des Monats« aus. Alle 
Listings, die im 64er abgedruckt 
sind, werden mit 100 bis 300 Mark 


honoriert. Die genaue Vorge- 
hensweise beim Einsenden von 
Listings ist in dem Beitrag »Wie 
schicke ıch meine Programme 
ein?%« in verschiedenen Ausgaben 
beschrieben. 


Redaktion 64er, Superchance: 
Listing des Monats, Hans-Pinsel- 
Str. 2, 8013 Haar bei München. 









Schicken Sıe Ihr Listing an: 





176 sap 
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Fehlerteufelchen 








Auf zu neuen Welten, Ausgabe 
7/85, Seite 44 


Leider treten in Verbin- 
dung mit manchen © 64 und 
dem IEEE-Interface Proble- 
me auf. Statt des 4069-Bau- 
steins sollte man dann einen 
7405 oder 7406 (keine LS- 
Typen!) verwenden. Die Soft- 
ware ist in folgenden Punk- 
ten zu ändern: Ab Speicher- 
stelle $FDDD folgende Byte- 
folge eingeben: $ AD A6 02 
FO 00 A9 04 85 02 A9 25 8D 04 
DC A940 ACF3 FD DC 
Verwenden Sıe dazu am be- 
sten ein Moniıtor-Programm. 

Die so geänderte Software 
wird wieder ın ein 2764-EP- 
ROM gebrannt und in den 
Computer eingesettzt. 


Ausgabe 7/85-MSE-Listing 
Terminalprogramm 

Bei den von uns verschick- 
ten Seiten mit dem MSE- 
Listing des Programms »Ter- 
minalprogramm« Ist bei der 
Montage ein Fehler aufge- 
taucht. In den Listings »Ter- 
minal« und »Editor« müssen 
die Zeilen $2081 bis $22b9 
ausgetauscht werden. Das 
bedeutet, daß dieser Zeilen- 
block aus dem Listing »ler- 
minal« in das Listing »Editor« 
geschrieben werden muß 
und umgekehrt. 


Sound-Machine, Ausgabe 9/85, 
Seite 23 

Im Listing 2, Noteneinga- 
be, muß die Zeile 1140 »5YS 
53027« lauten. Wird dies 
nicht korrigiert, stürzt der 
Computer beim Befehl »Sa- 
ve« ab. 

Die Zeile 1890 muß eben- 
falls »SYS 53027« heißen, der 
REM-Befehl entfällt. 
Mousetrap, SH3 »Spiele«, Seite 57 

In der »Hex-Eingabe-Rou- 
tine« verhindert die Zeile 155 
das ordnungsgemäße Funk- 
tıonieren der Lade-Routine. 


Bitte ersetzen Sie die Zeile 
155 duch »155 REM«. 


Wir suchen die ersten 
128er Profis 


Der neue C 128 ıst seit eini- 
gen Wochen im Handel. 
Vielleicht gehören Sie ja zu 
den ersten Besitzern dieses 
vielseitigen und leistungsfä- 
higen neuen Computers und 
haben schon erste, tieferge- 
hende Erfahrungen damit 
gesammelt oder Interessan- 
te Programme dafür ge- 
schrieben? 

In diesem Fall sollten Sie 
Ihre Erfahrungen nicht für 
sich behalten. Tragen Sie 
doch einfach malzusammen, 
was Sie über den C 128 her- 
ausgefunden haben, das 
nichtim Handbuch steht. Wir 
werden alle guten Tips und 
Tricks zu diesem Computer 
sowie die besten Program- 
me dafür im 64’er-Magazin 
veröffentlichen. 

Bitte vermerken Sie bei al- 
len Zusendungen, mit wel- 
cher Gerätekonfiguration 
Sie arbeiten und ob sıch Ihr 
Beitrag auf den 128-Modus 


oder auf den CP/M-Modus 
bezieht. Beiträge für den C 
64-Modus schicken Sıe bitte 
nicht unter dem Stichwort C 
128, sondern als normale C 
64-Programme oder Tips 
ein. Bei Programmeinsen- 
dungen legen Sıe bitte unbe- 
dingt eine Diskette/Kassette 
mit Ihrem Programm sowie 
eine möglichst ausführliche 
Beschreibung bei. Selbst- 
verständlich werden alle ab- 
gedruckten Beiträge ange- 
messen honoriert — es win- 
ken bis zu 2000 Mark, wenn 
Ihr Programm Listing des 
Monats wird. 


Schicken Sie Ihre Tips und 
Programme an 


Markt & Technik 

Verlag Aktiengesellschaft 
Redaktion 64’er 
Kennwort: C 128 
Hans-Pinsel-Str. 2 

8013 Haar bei München 
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VORSCHAU 11/85 Die nächste Ausgabe erscheint am 18. Oktober 


Lyrik-Generator 


Ein Basicprogramm macht Ih- 
ren Computer zum Dichter: 
»Goldene Ränke zerschmettern 
eine Hoffnung — 

Das Auge schreit — 

Da immer wieder pulsierende 
Welten verwehen, stirbt das Uni- 
versum.« 

Eines von Millionen von Ge- 
dichten, die der C 64 in sekun- 
derischnelle für Sie schreibt, 
wenn Sie dieses Programm ha- 
ben. Wie Sie leicht an unserem 
Beispiel feststellen können, sind 
die Lyrik-Ergüsse des C 64 keine 
Anemanderreihung von Wör- 
tern, sondern syntaktisch und se- 
mantisch korrekte Sätze. Inwie- 
weit allerdings diese Elektronik- 
Lyrık sinnvoll ıst, entscheidet der 
Zufall. Lassen Sie sich überra- 
schen. Wir sınd allerdings davan 
überzeugt: Das ist die Änwen- 
dung des Monats. 


Spiele-Trainer 

Kommen Sie bei ihrem 
Ineblings-Spiel nicht über das er- 
ste Bild hinaus? Werden Sie von 
ihrem Gegner stets niedergemet- 
zelt, aufgefressen oder abge- 
schossen? Suchen Sie verzweifelt 
nach dem rettenden POKE, konn- 
ten Ihn bisher aber nicht finden? 
Dann sollten Sie unseren Spiele- 
Trainer abtippen und vor dem 
Kampf laden. Die Angriffe der 
Gegner können Ihnen dann 
nichts mehr anhaben, denn Sie 
sind dagegen immun. 


Schnellere 1541 


Zurück zum Ursprung. Mit un- 
serem Umbausatz verwandeln 
Sie die 1541 in ein 2031-Laufwerk 
mit Parallelübertragung, dem 
Vorgänger der 1541. Für weniger 
als 100 Mark können Sie sich ei- 
nen Floppy-Speeder bauen, der 
die Geschwindigkeit fast aller 
Disketten-Optionen vervielfacht. 


Außerdem ... 


— 64er Extra. Diesmal alle Ker- 
nalroutinen 

— Die ersten Listings für den 
C 128 

— Verbesserungen zu Hypra- 
Ass und SMON 

— PO 128: Grafik ım 80-Zeichen- 
Modus 

— und wieder viele Tips und 
Tricks für den C 64 und © 128. 


180 ZU 


.— |. 











Gomnuter-Grafik 


Farbige Grafiken aus dem Wun- 
derland der Mathematik. Sie erfah- 
ren, wie sich mit einfachen Mitteln 
komplizierte Computer-Grafiken er- 
stellen lassen, die bis jetzt nicht, 
oder nur mit großem Aufwand, auf 
einem Heimcomputer möglich wa- 
ren. Die fertigen Bilder lassen sich 
speichern und als Hardcopy mit Hi- 
Eddi drucken. 


Druckertest 


Vier neue Drucker 
testen wir für Sıe: Ep- 
son ]JX-80, FX-85, Sel- 
koshaSP 1000 und den 
MPS 803 von Commo- 
dore. Lesen Sie, was 
den JX-80 außer Farb- 
druck noch auszeich- 
net und den FX-85 
vom Spitzenreiter FX- 
80 unterscheidet. Daß 
Seikosha nicht nur 
preiswerte, sondern 
auch gute Drucker 
baut, beweist der SP 
1000. 


Alles über 
Joysticks 


In der nächsten 
Ausgabe erfahren Sie 
alles über die »Steu- 
erknüppel«, die zum 
unentbehrlichen Ein- 
gabegerät bei Spie- 
len geworden sınd. 
Neben einem Ver- 
gleichstest der wich- 
tigsten Joysticks fin- 
den Sie eine Markt- 
übersicht, die auch 
Trackballs und Light- 
pens berücksichtigt. 


Der G 128 im 
64’er-Magazin 

Mittlerweile sınd 
die ersten speziell an 
C 128 angepaßten 
CP/M-Programme er- 
hältlich. Und das zu 
sensationellen Preı 
sen von unter 200 
Mark. Wir haben zwei 
der interessantesten 
Programme für Sie 
getestet: Wordstar 
und Turbo Pascal. Bei- 
des sind professionel- 
le Programme. 


Textverarbeitung 


Paper Clip erhebt den Anspruch, 
ein professionelles Textverarbei- 
tungsprogramm zu sein. Wir haben 
diesen Anspruch getestet und sind 
auf einige bemerkenswerte Sonder- 
funktionen gestoßen. Kann sıch Pa- 
per Clip, in Amerika lange Zeit Num- 
mer eins, gegen Vizawrite, Textomat 
und Startexter behaupten? Lesen 
Sie unseren Test. 
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